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UNIQUE  PHYSICIAN  IDENTIFICATION 
NUMBER  (UPIN)  VALIDATION  STUDIES 

PREFACE 

The  Physician  Registry  was  established  in  1989  by  HCFA  for  the  purpose  of  issuing 
unique  identification  numbers  (UPINs)  to  the  following  Medicare  providers:  doctors  of 
medicine,  osteopathy,  dental  medicine,  dental  surgery,  podiatry,  and  optometry  and 
chiropractors.  To  assist  in  the  identification  of  individual  providers,  the  Registry  collects  a 
variety  of  information.  HCFA  contracted  with  Health  Economics  Research,  Inc.  (HER)  to 
perform  studies  on  the  Registry's  data  quality  and  on  the  consistency  of  physician  information 
on  Medicare  claims.  Another  objective  was  to  develop  data  edits  to  assist  carriers  in 
maintaining  their  Registry  data  and  to  assist  researchers  in  using  Registry  data. 

The  current  report  is  the  second  produced  under  the  HER  contract.  It  provides  data 
edits  for  use  by  carriers  in  maintaining  their  Medicare  provider  files.  The  first  report  describes 
the  results  of  an  analysis  of  the  quality  of  Registry  data.  The  third  report  provides  data  edits  for 
use  by  researchers  using  Registry  data.  The  fourth  and  final  report  has  several  components, 
including:  (1)  case  studies  of  the  operations  of  the  Registry  contractor  and  carrier  operations, 
(2)  an  analysis  to  identify  the  inadvertent  issuance  of  UPINs  to  group  practices  and 
corporations,  (3)  estimates  of  the  number  of  HMO  physicians  without  UPINs  who  provide 
services  to  Medicare  beneficiaries,  and  (4)  an  analysis  of  the  consistency  of  a  physician's 
Medicare  participation  status  on  the  Registry  and  on  the  physician's  associated  Medicare 
claims.  An  additional  deliverable  consists  of  documentation  for  two  SAS  files  submitted  to 
HCFA.  The  two  SAS  files  contain  special  variables  that  indicate  the  quality  of  data  elements 
maintained  by  the  Registry,  the  consistency  between  pairs  of  data  elements,  and  whether  a 
provider  might  have  more  than  one  UPIN. 
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CHAPTER  1 
INTRODUCTION 


INTRODUCTION 


This  document  was  developed  to  provide  Medicare  carriers  with  a  set  of  algorithms  to 
detect  missing,  erroneous,  dubious,  and  unknown  (MEDU)  values  of  data  elements  within  the 
Medicare  provider  files.  Also  provided  are  algorithms  to  detect  logical  inconsistencies  between 
pairs  of  data  elements.  Finally,  algorithms  are  provided  to  detect  providers  with  more  than 
one  UPIN. 

The  algorithms  were  designed  to  detect  data  element  values  that  do  not  conform  to  the 
Physician  Registry's  specifications,  or  meet  minimum  quality  standards.  Data  elements  whose 
combined  MEDU  rates  exceeded  0.5  percent  were  chosen  for  inclusion.  In  addition,  algorithms 
are  provided  for  all  pairs  of  data  elements  that  were  investigated  in  our  Carrier  Analysis.1 

The  audience  for  this  document  is  carrier  personnel  responsible  for  maintaining  the 
integrity  of  their  Medicare  provider  file,  including  provider  file  managers,  computer 
programmers,  and  data  entry  personnel.  Data  integrity  specifications,  flowcharts,  and  SAS 
computer  programs  are  provided  to  assist  programmers  in  implementing  the  detection 
algorithms.  Data  entry  personnel  can  use  the  data  integrity  specifications  as  a  guide  to 
resolving  data  errors  and  inconsistencies  between  data  elements. 

The  detection  algorithms  embodied  in  the  flowcharts  can  be  used  at  several  points  in 
the  data  maintenance  process.  They  can  be  used:  (1)  post-entry  before  new  and  updated 
records  are  sent  to  the  Registry  and  (2)  for  retrospective  clean-up  of  the  entire  provider  hie.  We 
anticipate  that  these  two  types  of  usage  would  include  computerized  reports  generated  during 
overnight  batch  jobs.  The  algorithms  can  also  be  used  to  provide  interactive  notification  when 
data  are  entered  into  a  new  provider  record  or  when  a  record  is  being  updated;  extensive 
modifications  and,  possibly,  overrides  would  be  necessary  for  interactive  use. 


Unique  Physician  Identification  Number  (UPIN)  Validation  Studies:  Carrier  Analysis,  HCFA  Master  Contract  No.  500-92-0020, 
Delivery  Order  No.  5,  May  10, 1994. 
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In  the  flowcharts  and  SAS  programs, /fog  variables  are  used  to  indicate  data  element 
integrity.  The  term,  flagged,  refers  to  data  elements  whose  flag  variable's  value  is  not  equal  to  F 
(feasible)  nor,  for  some  data  elements,  equal  to  M  (missing)  -  see  Table  2-1  for  possible  flag 
values.  Data  entry  personnel  charged  with  the  responsibility  of  utilizing  computerized  reports 
to  investigate  the  value  of  flagged  data  elements)  should  be  able  to  draw  upon  several  sources 
of  information  to  resolve  problems.  These  sources  include:  (1)  the  provider's  application  form, 
(2)  the  carrier's  other  computerized  practice  settings  for  the  provider,  (3)  the  carrier's  internal 
hardcopy  (paper)  provider  files,  (4)  contacting  the  provider  by  phone  and/ or  mail,  and  (5)  state 
agencies  (e.g.,  for  state  license  number). 

The  detection  algorithms  were  designed  to  meet  HCFA's  specifications  for  records  that 
carriers  send  to  the  Physician  Registry  ("Carrier  Record"  in  Exhibit  1-1).  The  file  that  we  used  to 
test  the  algorithms  is  one  that  the  Registry  had  provided  to  HCFA.  Some  of  the  data  elements 
in  the  Registry  file  have  different  COBOL  pictures;  the  date  of  birth's  components  have  a 
different  order  ("Registry  File"  in  Exhibit  1-1).  As  a  result,  our  SAS  programs  had  to  account 
for  data  possibilities  that  might  not  be  present  in  a  carrier's  provider  file  (e.g.,  secondary 
specialty  code:  an  otherwise  numeric  field  that  might  contain  all  blanks).  Except  for  such 
circumstances,  the  flowcharts  should  be  directly  usable  by  carrier  programmers.  For  overnight 
batch  jobs,  the  STOP  statements  in  the  flowcharts  indicate  that  no  more  checking  of  the  data 
element  is  necessary  and  that  the  program  can  flow  to  the  next  step  (e.g.,  check  another  data 
element).  In  implementing  corrections  during  interactive  data  entry,  the  STOP  statements 
indicate  where  messages  can  be  inserted  for  the  data  entry  clerk. 

We  have  used  the  SAS  computer  language.  Carriers  that  have  SAS  can  use  our 
programs  with  few,  if  any,  modifications.  Although  some  carriers  may  not  have  SAS,  there  are 
many  similarities  between  SAS's  IF/THEN/ELSE  statements  and  those  found  in  other 
programming  languages  such  as  COBOL. 
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EXHIBIT  1-1 

FORMATS  OF  REGISTRY  DATA  ELEMENTS 


CARRIER  RECORD 


REGISTRY  RLE 


Data  Element 

Date  of  birth 
School  code 
Year  graduated 
Sanction  code 
Sanction,  effective  date 
Sanction,  number  of  years 
State  license  number 
Physician  status 
Provider  credentials 
Primary  specialty 
Secondary  specialty 


COBOL 

Component 

Missing 

COBOL 

Component 

Reauired 

Picture 

Justification 

Order 

Value 

Picture 

Order 

Y 

9(06) 

R 

MMDDYY 

0 

S9(09)  COMP-3 

YYMMDD 

Y 

X(05) 

R 

blank 

X(05) 

Y 

9(02) 

R 

YY 

0 

S9(09)  COMP-3 

YY 

N 

X(01) 

blank 

X(01) 

N 

9(04) 

R 

MMYY 

0 

9(04) 

MMYY 

N 

9(02) 

R 

0 

S9(03)  COMP-3 

Y 

X(12) 

R 

blank 

X(12) 

Y 

9 

0 

X(01) 

Y 

X(03) 

L 

blank 

X(03) 

Y 

9(02) 

R 

0 

X(02) 

N 

9(02) 

R 

0 

X(02) 

Sources: 


1  Carrier  record  formats  from  HCFA  Transmittals. 

2  Registry  He  lam^nenTmmmmmOeciamMmkmMmiMOammr-  version  of  file  sent  to  hcfa. 
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When  reading  a  flat  (raw)  file,  if  SAS  encounters  a  blank  field  (regardless  of  whether  the 
field  is  numeric  or  alphanumeric),  SAS  automatically  assigns  a  missing  value  code  to  the  data 
element.  For  numeric  fields  the  missing  value  code  is  equal  to  a  period  while  for  alphanumeric 
fields  the  missing  value  code  is  a  blank.  If  a  data  element  was  filled  with  all  9s  instead  of 
zeroes  or  blanks,  it  was  also  considered  to  be  a  missing  value.  In  the  provided  SAS  print-outs, 
a  "A"  denotes  a  logical  NOT  operation,  a  "]M  denotes  a  logical  OR  operation  and  a  "]]"  denotes  a 
concatenation  operation. 

We  have  attempted  to  adhere  to  standard  flowcharting  rules.  From  decision 
"diamonds,"  all  "Yes"  branches  flow  downward  and  all  "No"  branches  flow  to  the  right. 
However,  because  of  the  availability  of  more  recent  programming  tools  and  changes  in 
programming  philosophy,  flowcharts  don't  always  move  downward.  With  regard  to  IF 
statements,  in  particular,  conditions  that  most  of  the  observations  satisfy  are  usually  placed  at 
the  beginning  of  a  series  of  IF/THEN/ELSE  statements  according  to  current  programming 
philosophy. 

In  contrast  with  traditional,  structured  computer  languages  such  as  COBOL  and 
FORTRAN,  SAS  is  not  a  structured  language.  Although  there  are  many  similarities  between 
SAS  and  computer  languages  such  as  COBOL,  SAS  statements  can  be  quite  different  from 
statements  in  other  computer  languages  (e.g.,  data  subsetting  statements)  and  allow  operations 
(e.g.,  merging  two  files)  that  would  have  required  substantially  more  program  code  in  other 
computer  languages  (especially  COBOL  prior  to  1980).  Thus,  the  provided  SAS  code  obtains 
the  objective  specified  in  the  flowcharts,  but  not  necessarily  in  the  same  order.  For  an  example, 
see  the  flowchart  and  SAS  code  for  the  integrity  of  school  codes. 

The  next  chapter  of  this  document  provides  the  detection  algorithms  for  data  element 
integrity.  The  third  chapter  provides  the  algorithms  for  detecting  inconsistencies  between  pairs 
of  data  elements.  For  each  single  data  element  or  pairs  of  data  elements,  we  provide  (1)  a  brief 
description  of  the  types  of  errors  or  inconsistencies  found  in  the  July  1993  Physician  Registry  file, 
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(2)  data  integrity  specifications,  (3)  flowcharts  for  detecting  anomalous  values,  and  (4)  the  SAS 
computer  program  used  to  detect  or  flag  anomalous  conditions.  Chapter  four  provides 
algorithms  for  detecting  providers  that  have  more  than  one  UPIN. 
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CHAPTER  2 
DATA  ELEMENT  INTEGRITY 
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The  specifications  provided  in  this  chapter  were  designed  to  conform  to  the  Carrier 
Record  specifications  for  the  provider  records  sent  by  carriers  to  the  Physician  Registry.  We 
developed  computer  algorithms  that  determine  conformance  with  our  specifications.  The 
algorithms  create  flag  variables  that  denote  the  validity  or  feasibility  of  a  data  element  value. 
Table  2-1  shows  the  values  of  the  flag  variables,  their  definition,  and  their  frequencies  as  of  July 
1993.  Data  integrity  specifications  for  each  data  element  in  Table  2-1  are  provided  in  this 
chapter.  Additionally,  specifications  for  provider  credentials  and  physician  status  are  included 
as  input  for  specifications  provided  in  Chapter  3.  Because  provider  credentials  and  physician 
status  only  had  three  non-feasible  values  between  them,  they  are  not  included  in  Table  2-1. 
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TABLE  2-1 

DISTRIBUTION  OF  DATA  ELEMENT  VALUES 


Flag  Definition 


Date  of 
Birth 


F 

Feasible 

1,609,540 

M 

Missing 

304,517 

E 

Erroneous 

69,605 

D 

Dubious 

12,313 

1 

January  1, 1901 

3,093 

J 

Not  properly  justified 

R 

Retired  code 

0 

Zero-filled  state  license  number 

S 

Miscellaneous  specialty  code  (49) 

u 

Unknown 

State 
License 
Number 

1,151,415 
270,375 


518,203 
59,075 


SANCTION 


Code 

3,188 
1,994,698 


Date 

2,526 
1,996,343 
199 


Length 

2,534 
1,996,436 

98 


SPECIALTY  CODE 


Primary 
1,993,786 
1 


Secondary 

114,034 
1,884,816 
1 


1,182 


2,468 

2,184 
629 


117 

53 
47 


School 
Code 

1,623,658 
361,521 
11,665 


2,224 


Graduation 
Year 

1,543.272 
441,216 
4,364 
10.216 


i 

I 


Total: 


1,999,068    1,999,068    1,999,068    1,999,068    1,999,068       1,999,068    1.999,068       1,999,068  1,999,068 


Source:  Registry  File,  July  1993 
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DATA  ELEMENT:  DATE  OF  BIRTH 


Date  of  birth  is  a  required  data  element.  Month  and  day  values  are  sometimes  out  of  range  (e.g., 
month  =  15).  Year  sometimes  has  implausible  values  (e.g.,  82).  Sometimes  the  value  does  not 
correspond  to  the  carrier  record  format  or  to  the  Registry  file  format  (see  Exhibit  1-1)  as  when  a  date  of 
birth  has  5000  as  its  value  instead  of  its  actual  value. 

Data  Format: 

Carrier  Record:  PIC  9(06);  Component  Order:  MMDDYY 
Registry  File:  PIC  S9(09)  COMP-3;  Component  Order:  YYMMDD 

Flag  assignment  hierarchy,  in  descending  order  of  priority: 

Hag 

Definition 

Criteria 

J 

Not  properly  justified 

not  right  justified 

F 

Feasible 

14<year<69  and 
l<month<12  and 
day  value  consistent  with 
month  and  year 

D 

Dubious 

((year=99)  or  (0<year<13)) 
and  (l<month<12)  and 
day  value  consistent  with 
month  and  year 

1 

January  1, 1901 

date  of  birth  =  10101 

M 

Missing 

date  of  birth  =  0,  blank,  or 
999999 

E 

Erroneous 

all  other  values 

Notes: 

(1) 

Note  that  the  order  of  the  components  of  date  of  birth  < 
the  carrier  record  (Exhibit  1-1). 

jn  the  Registry  file  differs  from 

(2) 

Providers  are  not  allowed  to  be  age  23  or  younger.  Thus,  for  the  July  1993  Registry  file, 
the  upper  bound  for  feasible  values  of  year  was  69.  The  upper  bound  needs  to  be 
annually  adjusted  upward,  70  for  1994,  71  for  1995,  and  so  on.  Note  that  there  might  be 
infrequent  cases  in  which  the  provider  actually  is  23  years  old  or  less  -  such  instances 
should  be  verified. 

(3) 

In  one  of  our  investigations,  we  noticed  that  the  frequency  of  January  1, 1901  dates  of 
birth  is  implausibly  high.  Additionally,  all  dates  of  birth  prior  to  1914  imply  an  age 
greater  than  79  in  1993;  in  most  instances  the  provider  is  retired.  All  dates  of  birth  prior 
to  1914  should  be  reviewed.  The  upper  bound  for  the  dubious  category  needs  to  be 
annually  adjusted  upward. 
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FLOWCHART  FOR 
DATE  OF  BIRTH  (DOB)  INTEGRITY 


-1 


/***********************************^ 

/*  */ 

/*  -Date  of  birth  integrity  check  */ 
/*  */ 
/********************************************************/ 

DATA  S; 
SET  IN.JUL0293 

(KEEP-SETDOB) ; 

/*  SETTING  DATE  OF  BIRTH  (SETDOB)  */ 


IF  SETDOB>0  THEN  DO; 
DOBYRS  -  SUBSTR( SETDOB, 7,2) ; 
MODAYS  -  SUBSTR ( S  ETDOB ,9,4); 
IF  DOBYRS-'     '  THEN  DO; 
IF  (101<-SETDOB<-131)  ] 
(301<-SETDOB<-331)  ] 
(501<-SETDOB<-531)  ] 
(701<-SETDOB<-731)  ] 
(901<-SETDOB<-930)  ] 
(1101<-SETDOB<=1130) 
THEN  DOBYRS- ' 00 ' ; 
END; 
END; 


(201<-SETDOB<-229)  ] 
(401<-SETDOB<-430)  ] 
(601<=SETDOB<-630)  ] 
(801<-SETDOB<-831)  ] 
(100K-SETD0BO1031)  ] 
]  (1201<=SETDOB<-1231) 


IF  ( '14'<=DOBYRS<='69' )  &  MODAYS A= ' 0000 '  &  SETDOBA=10101  & 


(('   101 '<=MODAYS<=' 0131 ' ) 
(MODAYS- '0229'  &  DOBYRS  A= 


301 '<=MODAYS<-' 0331 ' ) 
501'<-MODAYS<-'0531' ) 
701'<-MODAYS<='0731' ) 
901 '<=MODAYS<=' 0930 ' ) 
1101' <=MODAYS<= '1130') 


]  ( 
'00 

]  ( 
]  ( 
]  ( 
]  ( 
]  ( 


201 '<=MODAYS<=' 0228')  ] 
&  (D0BYRS/4=INT(D0BYRS/4)))  ] 
401 ' <-MODAYS<- ' 0430 ' )  ] 
601 '<=MODAYS<=' 0630')  ] 
801 '<=MODAYS<=' 0831 ' )  ] 
1001 '<=MODAYS<=' 1031' )  ] 
1201'<=MODAYS<='1231'))  THEN  HDOBS= 


'  F' 


/*  FIRST  CLAUSE  BELOW  INCLUDES   '00'  */ 

ELSE  IF  ('   1'<-D0BYRS<='13' )  &  MODAYS A— ' 0000 '  &  SETDOBA=10101  & 


(('   101 *<=MODAYS<=' 0131')   ]  ( 
(MODAYS-' 0229'  &  DOBYRSA='00 


301 '<-MODAYS<-' 0331 ' )  ]  ( 

501 '<-MODAYS<=' 0531 ' )  ]  ( 

701 '<-MODAYS<-' 0731')  ]  ( 

901 '<=MODAYS<-' 0930*)  ]  ( 

1101 '<-MODAYS<-' 1130')  ]  ( 


201 '<=MODAYS<=' 0228 ' ) 
&  (D0BYRS/4=INT(D0BYRS/4))) 
401 '<=MODAYS<-' 0430 ' )  ] 
601 ' <-MODAYS<- ' 0630')  ] 
801 '<=MODAYS<=' 0831 ' )  ] 
1 1001' <=MODAYS<=' 1031' )  ] 
' 1201' <-MODAYS<-' 1231' )) 


THEN  HDOBS-'D' 


ELSE  IF  SETDOB-999999  ]  SETDOB-0  ]  SETDOB-.  THEN  HDOBS-'M' ; 
ELSE  IF  SETDOB-10101  THEN  HDOBS='l'; 


ELSE  IF  DOBYRS- '99'  &  MODAYS A= 
(('  101 '<-MODAYS<-' 0131 ' )  ]  (' 
(MODAYS-' 0229'  &  DOBYRS A=' 00' 
('  301 '<=MODAYS<=' 0331 ' )  ]  (' 
('  501 '<-MODAYS<-' 0531 ' )  ]  (' 
('   701 '<-MODAYS<=' 0731 ' )   ]  (' 


'0000'  & 

201 '<-MODAYS^=' 0228')  ] 
&  (D0BYRS/4=INT(D0BYRS/4))) 
401' <=MODAYS<= '0430')  ] 
601 '<=MODAYS<=' 0630 ' )  ] 
801' <=MODAYS<=' 0831 ' )  ] 
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(•  701 '<-MODAYS<-' 0731 ' )  ]  ('  801 '<-MODAYS<- ' 0831 ' )  ] 
('  901' <-M0DAYS<-' 0930')  ]  ( 1 1001 '<-MODAYS<-' 1031 ' )  ] 
('llOl'OMODAYS^'mO')   ]   (,1201'<-MODAYS<-'1231•))  THEN  HDOBS-'D' 


ELSE  HDOBS-'E' ; 


OUTPUT  S; 
RUN; 

PROC  FREQ  DATA=S  ORDER=FREQ;  TABLES  HDOBS ; 

TITLE  '****  SETTING  DATE  OF  BIRTH  ****'; 
RUN; 
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DATA  ELEMENT:  STATE  LICENSE  NUMBER 


State  license  number  is  a  required  data  element.  It  should  be  right-justified  and  preceded  (padded)  with 
zeroes.  Left  justification  and  filling  with  zeroes  instead  of  blanks  are  the  two  most  frequent  types  of 
non-conformance  with  Registry  specifications. 

Data  Format: 

PIC  X(12)  for  both  Carrier  Record  and  Registry  File. 

Flag  assignment  hierarchy,  in  descending  order  of  priority: 

Flag 

Definition 

Criteria 

J 

Not  properly  justified 

not  right  justified 

0 

Zero-filled 

zeroes  in  all  byte  positions 

M 

Missing 

blanks  in  all  byte  positions 

F 

Feasible 

all  other  values 

Notes: 

(1) 

Feasible  in  this  instance  means  that  the  data  element  conforms  to  Registry  specification; 
however,  it  does  not  mean  that  the  actual  value  is  correct,  or  for  that  matter,  conforms 
to  the  issuing  state's  license  number  format. 

(2) 

Although  required  now,  state  license  number  was  not  required  for  the  initial  Registry 
load. 
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FLOWCHART  FOR 
STATE  LICENSE  NUMBER  (LICENSE)  INTEGRITY 


/********************************************************/ 

/*  -Check  integrity  of  State  License  Number  ' 

I*  i 
/********************************************************/ 

DATA  A; 
SET  IN.JUL0293 
(KEEP=LICENSE) ; 

/*  LICENSE  */ 

IF  LICENSEA=RIGHT (LICENSE)   THEN  HLICENSE= ' J ' ; 

ELSE  IF  LICENSED  '  THEN  HLICENSE=,M' ; 

ELSE  IF  LICENSE=' 000000000000'  THEN  HLICENSE=" 0 ' ; 


ELSE  HLICENSE='F' ; 
RUN; 

PROC  FREQ  ORDER=FREQ; 
TABLES  HLICENSE; 

TITLE  '***  SETTING  -  LICENSE  ***'; 
RUN; 
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DATA  ELEMENT:  SCHOOL  CODE 


School  code  is  a  required  data  element.  Values  equal  to  all  blanks  frequently  occur.  Completely  erroneous  codes  occur  less 
frequently.  Since  the  establishment  of  the  Registry,  some  codes  have  been  superceded  (retired). 

Data  Format: 

PIC  X  (05)  for  both  carrier  record  and  Registry  File. 

Flag  assignment  hierarchy,  in  descending  order  of  priority: 

Flap 

Definition 

Criteria 

J 

Not  properly  justified 

not  right  justified 

F 

Feasible 

codes  present  in  Exhibit  2-1 

R 

Retired  code 

'000XA'<school  code<'000XE'  or 
school  code  =  •OOOXJ'  or  '000X1C 

M 

Missing 

school  code  ■  blanks,  '00000',  or 
•00001' 

E 

Erroneous 

all  other  values 

Notes: 


(1)  School  codes  were  not  required  for  the  initial  Registry  load. 

(2)  Near  the  beginning  of  the  implementation  phase  of  the  Registry,  carriers  were  instructed  to  use  the  following  codes 
for  limited  license  practitioners  (Program  Memorandum,  Carrier  Transmittal  No.  B-89-2,  February  1989): 

Code  Credential 

10000  Doctor  of  Dental  Medicine  (DDM) 

20000  Doctor  of  Dental  Surgery  (DDS) 

30000  Podiatry  (DPM) 

40000  Optometry  (OD) 

50000  Chiropractic  (CH) 

(a)  In  October  1989,  individual  school  codes  were  listed  in  Exhibits  3B-3D  of  the  Medicare  Carriers  Manual,  Part 
4,  Professional  Relations,  Transmittal  No.  2  (October  1989). 

(b)  Additionally,  in  Transmittal  No.  2  (Exhibit  3C),  code  40000  was  assigned  to  the  School  of  Optometry  at  the 
University  of  Alabama  in  Birmingham. 

(3)  Podia  trie  school  codes  were  revised  in  1991  (Exhibit  3B,  Medicare  Carriers  Manual,  Part  4,  Professional  Relations, 
Transmittal  No.  6,  December  1991): 


Old 

New 

Name 

OO0XA 

30000 

California  College  of  Pediatric  Medicine 

0OOXB 

30100 

Dr.  William  M.  Scholl  College  of  Podiatric  Medicine 

000XC 

30200 

New  York  College  of  Podiatric  Medicine 

000XD 

30300 

Ohio  College  of  Podiatric  Medicine 

000XE 

30400 

Pennsylvania  College  of  Podiatric  Medicine 

000XK 

30500 

Barry  University  School  of  Podiatric  Medicine 

OOOXJ 

30600 

College  of  Podiatric  Medicine  and  Surgery,  University  of 

Osteopathic  Medicine  and  Health  Sciences 


(a)  Codes  000XF-0O0XI  have  not  been  superseded  and  are  assigned  to  podiatric  schools  that  are  now  closed. 

(b)  Prior  to  the  above  revisions,  school  code  30000  was  used  to  indicate  any  podiatry  school. 

(4)          Even  though  individual  codes  have  been  assigned  to  podiatry,  optometry,  and  chiropactic  schools,  codes  30000, 40000,  and 
50000  are  excessively  used  (use  of  each  catch-all  code  constitutes  well  over  half  of  its  respective  category's  code  usage). 
Therefore,  we  suggest  that  the  school  code  be  reviewed  for  each  provider  that  has  one  of  these  three  codes  assigned  (Since 
neither  the  accompanying  flowchart  nor  the  SAS  program  provide  for  such  identification,  modifications  to  them  would  be 
|  necessary  to  identify  such  providers.)  
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EXHIBIT  2-1 

REGISTRY  SCHOOL  CODES 


HCFA 


ID 

SCHOOL 

LOCATION 

00102 

University  of  Alabama  School  of  Medicine 

Birmingham,  AL 

00104 

Birmingham  Medical  College 

Birmingham,  AL 

00106 

University  of  South  Alabama  College  of  Medicine 

Mobile,  AL 

00301 

University  of  Arizona  College  of  Medicine 

Tuscon,  AR 

00401 

University  of  Arkansas  College  of  Medicine 

Little  Rock,  AR 

00402 

College  of  Physicians  and  Surgeons 

Little  Rock,  AR 

00501 

Cooper  Medical  College 

San  Francisco,  CA 

00502 

University  of  California,  San  Francisco,  School  of  Medicine 

San  Francisco,  CA 

00504 

California  Eclectic  Medical  College 

Los  Angeles,  CA 

00505 

Hahneman  Medical  College  of  the  Pacific  (Homeopathic) 

San  Francisco,  CA 

00506 

University  of  Southern  California  School  of  Medicine 

Los  Angeles,  CA 

00507 

College  of  Physicians  and  Surgeons  of  San  Francisco 

San  Francisco,  CA 

00508 

Oakland  College  of  Medicine  and  Surgery 

Oakland,  CA 

00509 

College  of  Physicians  and  Surgeons  of  Los  Angeles 

Los  Angeles,  CA 

00511 

Stanford  University  School  of  Medicine 

Palo  Alto,  CA 

00512 

Loma  Linda  University  School  of  Medicine 

Loma  Linda,  CA 

00513 

Pacific  Medical  College 

Los  Angeles,  CA 

00514 

University  of  California,  Los  Angeles,  School  of  Medicine 

Los  Angeles,  CA 

00515 

University  of  California,  Irvine,  California  College  of  Medicine 

Irvine,  CA 

00516 

University  California  Ca  College  of  Med  Irvine  CA 

Irvine,  CA 

00517 

University  Of  Cat  College  of  Medicine  Irvine  CA 

Irvine,  CA 

00518 

University  of  California,  San  Diego,  School  of  Medicine 

La  Jolla,  CA 

00519 

University  of  California,  Davis,  School  of  Medicine 

Davis,  CA 

00576 

College  of  Osteopathic  Medicine  of  the  Pacific 

Pomona,  CA 

00702 

University  of  Colorado  School  of  Medicine 

Denver,  CO 

00705 

Denver  and  Gross  College  of  Medicine 

Denver,  CO 

00801 

Yale  University  School  of  Medicine 

New  Haven,  CT 

00802 

University  of  Connecticut  School  of  Medicine 

Farmington,  CT 

01001 

George  Washington  University  School  of  Medicine  and  Health  Sciences 

Washington,  D.C. 

01002 

Georgetown  University  School  of  Medicine 

Washington,  D.C. 

01003 

Howard  University  College  of  Medicine 

Washington,  D.C. 

01102 

University  of  Miami  School  of  Medicine 

Miami,  FL 

01103 

University  of  Florida  College  of  Medicine 

Gainesville,  FL 

01104 

University  of  South  Florida  College  of  Medicine 

Tampa,  FL 

01175 

Southeastern  University  of  Health  Sciences  College  of  Osteopathic  Medicine 

Miami,  FL 

01201 

Medical  College  of  Georgia 

Augusta,  GA 

01205 

Emory  University  School  of  Medicine 

Augusta,  GA 

01209 

Georgia  College  of  Eclectic  Medicine  and  Surgery 

Augusta,  GA 

01211 

Atlanta  College  of  Physicians  and  Surgeons 

Atlanta,  GA 
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EXHIBIT  2-1  (continued) 
REGISTRY  SCHOOL  CODES 


HCFA 


ID 

SCHOOL 

LOCATION 

01212 

Atlanta  School  of  Medicine 

Atlanta,  GA 

01218 

Hospital  Medical  College  Eclectic 

Atlanta,  GA 

01219 

Southern  College  or  Medicine  4  Surgery 

Atlanta,  GA 

01221 

Morehouse  School  of  Medicine 

Atlanta,  GA 

01222 

Mercer  University  School  of  Medicine 

Macon,  GA 

01401 

University  of  Hawaii  John  A.  Bums  School  of  Medicine 

Honolulu,  HI 

01601 

Rush  Merfcal  Colleae 

Chicago,  IL 

01602 

University  of  Chicago  Pritzker  School  of  Medicine 

Chicago,  IL 

01604 

Hahneman  Medical  College  and  Hospital 

Chicago,  IL 

01605 

College  Of  Medicine  and  Surgery  (Physio-Medical) 

Chicago,  IL 

01606 

Northwestern  University  Medical  School 

Chicago,  IL 

01608 

Bennett  Medical  College 

Chicago,  IL 

01609 

Northwestern  University  Womans  Medical  School 

Chicago,  IL 

01610 

The  Chicago  Homeopathic  Medical  College 

Chicago,  IL 

01611 

University  of  Illinois  College  of  Medicine 

Chicago,  IL 

01613 

Harvey  Medical  College 

Chicago,  IL 

01614 

National  Medical  University 

Chicago,  IL 

01615 

Hering  Medical  College  (Homeopathic) 

Chicago,  IL 

01616 

Jenner  Medical  College 

Chicago,  IL 

01617 

Illinois  Medical  College 

Chicago,  IL 

01618 

Dunham  Medical  College 

Chicago,  IL 

01619 

American  Medical  Missionary  College 

Battle  Creek,  Ml  &  Chicago,  IL 

01622 

Chicago  College  of  Medicine  and  Surgery 

Chicago,  IL 

01623 

Dearborn  Medical  College 

Chicago,  IL 

01642 

University  of  Health  Sciences/The  Chicago  Medical  School 

North  Chicago,  IL 

01643 

Loyola  University  of  Chicago,  Stritch  School  of  Medicine 

Maywood,  IL 

01644 

The  General  Medical  College 

Chicago,  IL 

01645 

Southern  Illinois  University  School  of  Medicine 

Springfield,  IL 

01675 

Chicago  College  of  Osteopathic  Medicine 

Chicago,  IL 

01705 

Physio-Medical  College  of  Indiana 

Indianapolis,  IN 

01708 

The  Medical  College  of  Indiana 

Indianapolis,  IN 

01709 

Central  College  of  Physicians  &  Surgeons 

Indianapolis,  IN 

01717 

Eclectic  Medical  College  or  Indiana 

Indianapolis,  IN 

01718 

Indiana  Medical  College,  School  of  Medicine  of  Purdue  University 

Indianapolis,  IN 

01720 

Indiana  University  School  of  Medicine 

Indianapolis,  IN 

01801 

College  of  Physicians  and  Surgeons 

Keokuk,  IA 

01803 

University  of  Iowa  College  of  Medicine 

Iowa  City,  IA 

01804 

State  University  of  Iowa,  College  of  Homeopathic  Medicine 

Iowa  City,  IA 

01806 

Drake  University  College  of  Medicine 

Des  Moines,  IA 
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EXHIBIT  2-1  (continued) 
REGISTRY  SCHOOL  CODES 


HCFA 


ID 

SCHOOL 

LOCATION 

01808 

Sioux  City  College  of  Medicine 

Sioux  City,  IA 

01810 

Keokuk  Medical  College,  College  of  Physicians  and  Surgeons 

Keokuk.  IA 

01875 

University  of  Osteopathic  Medicine  and  Health  Sciences/College  of  Osteopathic  Medicine  and  Surg 

Des  Moines,  IA 

01902 

University  of  Kansas  School  of  Medicine 

Kansas  City,  KS 

01903 

Kansas  Medical  College  (Medical  Department  of  Washburn  College) 

Topeka,  KS 

01904 

College  of  Physicians  and  Surgeons  of  Kansas  City 

Kansas  City,  KS 

01907 

Western  Eclectic  College  of  Medicine  and  Surgery 

Kansas  City,  KS 

02001 

Kentucky  School  of  Medicine 

Louisville,  KY 

02002 

University  Of  Louisville  School  of  Medicine 

Louisville,  KY 

02004 

Louisville  Medical  College 

Louisville,  KY 

02005 

Hospital  College  of  Medicine  (Med  Dept  of  Central  University) 

Louisville,  KY 

02007 

Louisville  National  Medical  College  (Med  Dept  State  University)(Black) 

Louisville,  KY 

02008 

Southwestern  Homeopathic  Medical  College  and  Hospital 

Louisville,  KY 

02009 

Kentucky  University  Medical  Department 

Louisville,  KY 

02011 

Louisville  and  Hospital  Medical  College 

Louisville,  KY 

02012 

University  of  Kentucky  College  of  Medicine 

Lexington,  KY 

02101 

Tulane  University  School  of  Medicine 

New  Orleans,  LA 

02104 

Flint  Medical  College  of  New  Orleans  University  (Black) 

New  Orleans,  LA 

02105 

Louisiana  State  University  School  of  Medicine  in  New  Orleans 

New  Orleans,  LA 

02106 

Louisiana  State  University  School  of  Medicine  in  Shreveport 

Shreveport,  LA 

02201 

Bowdoin  Medical  School 

Brunswick  and  Portland,  ME 

02275 

University  of  New  England  College  of  Osteopathic  Medicine 

Biddeford,  ME 

02301 

University  of  Maryland  School  of  Medicine 

Baltimore,  MD 

02303 

College  of  Physicians  and  Surgeons  of  Baltimore 

Baltimore,  MD 

02304 

Baltimore  Medical  College 

Baltimore,  MD 

02305 

Woman's  Medical  College  of  Baltimore 

Baltimore,  MD 

02306 

Baltimore  University  School  of  Medicine 

Baltimore,  MD 

02307 

John  Hopkins  University  School  of  Medicine 

Baltimore,  MD 

02308 

Atlantic  Medical  College 

Baltimore,  MD 

02309 

Maryland  Medical  College 

Baltimore,  MD 

02311 

Maryland  College  of  Eclectic  Medicine  and  Surgery 

Baltimore,  MD 

02312 

Uniformed  Services  University  of  Health  Science 

Bethesda,  MD 

02401 

Harvard  Medical  School 

Boston,  MA 

02405 

Boston  University  School  of  Medicine 

Boston,  MA 

02406 

College  of  Physicians  and  Surgeons 

Boston,  MA 

02407 

Tufts  University  School  of  Medicine 

Boston,  MA 

02415 

Middlesex  University  School  of  Medicine 

Waltham,  MA 

02416 

University  of  Massachusetts  Medical  School 

Worcester,  MA 

02501 

University  of  Michigan  Medical  School 

Ann  Arbor,  Ml 
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EXHIBIT  2-1  (continued) 
REGISTRY  SCHOOL  CODES 


HCFA 


ID 

SCHOOL 

LOCATION 

1  Inrvpratv  of  Mirhinan  Horneooathic  Medical  School 

wl  Is  Vwt  oily  ui  nniw  ifyai  i  i  im  i  ^^j^/ciu  t»v  MMPMi  rwi 

Ann  Arbor,  Ml 

09*V17 

VA/avne  Qtaif>  l  Inrvereftv  S^hooJ  of  Medicine 

Detroit,  Ml 

02508 

Mirhinan  nollene  of  Medicine  &  Suroerv 

Detroit,  Ml 

UZ.J  1  z 

Mirhinan  Qfato  1  IniverRftv  PrjUvm  of  Human  Medicine 

IVIICniQcul  OualtJ  will v el  2h l y  VAnK^C  ui  nuiiraii  (vn_>-in_n  rc: 

East  Lansing,  Ml 

VJZ.J/  D 

Mirhinan  <UatP  t  InK/ercitv  Cnilene  of  Osteooathic  Medicine 

East  Lansing,  Ml 

09ROA 
UzOU*t 

1  InKiAreih/  nf  UinnAC/^a  Mffcul  Or hrviJ 

univci siiy  ui  mtniKSooui  ivmjKrai  ouww 

Minneapolis,  MN 

uzovo 

MinnoanrJic  f^nfUwie  nf  Phveirinne  and  5^iirnenns 
MII1I  reapulfo  WulKajc  ui  n  lyotuiaiio  airu  ouiycvi  to 

Minneapolis,  MN 

09<so7 

1  InK/iarcrKy  nf  Minnacria  Hi  ill  rth  Qrhnni  nf  M**HirinP 

university  oi  MinnBouui  i_/uiuui  ouiuu  ui  rvicjivii  ic 

Duluth,  MN 

uzouo 

iviayo  Meuiccii  owium 

Rochester,  MN 

UZ/U  1 

1  I riK/arcihy  Micctccinni  ^rhnnl  nf  Medicine 

UniVtfl51iy  iVHsSOlooipUl  OUWUI  UI  IVICJIUIMC 

Jackson,  Ml 

UZ/ UZ 

IVllSSIooippi  fvieuiOdl  OUIlcyc 

Meridian,  Ml 

UZOU  I 

Missouri  Mcuicai  L/Oiieyc 

St.  Louis,  MO 

09A09 

\A/3chinntnn  1  Iniv/orcitv  MfikHiral  QrhnnJ 

VVaSninyion  univei&iiy  ivieuH^ai  o^huui 

St.  Louis,  MO 

UzOUo 

i  iniwArcitw  nf  Miccni  iri  Pnlnmhia  ^rhnrJ  nf  Medicine 
UniV6r5iiy  UI  MI550UM  UUIUI  1  IL/Id  ouimm  ui  ivrcvir^inc 

Columbia,  MO 

UzoUD 

norneopainic  rvieuicdi  ooucyc  ui  iviis&uui i 

St.  Louis,  MO 

09R07 

c*  i  m  iic  /^rJlAnA  nf  PhuoirJanA  and  Siirneons 
Ol.  LOUIS  L_*UUcye  OI  n ly«Mv*tcii  io  ai  hj  oui  yevi  io 

St.  Louis,  MO 

Uzouo 

rvansas  uny  Meoioai  ootieye 

Kansas  City,  MO 

Uzol  U 

m  at  inn  a  i  i  inrvoncitv  nf  the  Arte  and  Sciences  Medical  Denartrnent 

INauOridl  univcloliy  ul  UKS  nils  aliu  w^iCfioca  ivicvjpv^ai  u^^paniireiii 

St.  Louis,  MO 

uzozu 

1  Inivpnsitv  Medical  nnlleoe  of  Kansas  Cftv 

UIHVcialiy  lviCvir\^ai  vvircyc  ui  r\ai i«ao  wuy 

Kansas  City,  MO 

uzozz 

p  n<; worth  Medical  Colleae 

St.  Joseph,  MO 

09fl9fi 
UZOZO 

iCancac  t^rtu  Mnmennathir  Medical  Hnllene 
Miiaob  ouy  nui i usupoii  iiu  rvicuiv^oi  vuncyc 

Kansas  City,  MO 

UZOZO 

Dampe  Mediral  P.rJIene 

St.  Louis,  MO 

UZOOU 

Kansas  City,  MO 

02833 

Prlertir  Medical  Universitv 

Kansas  City,  MO 

02834 

Saint  Louis  University  School  of  Medicine 

St.  Louis,  MO 

02835 

Southwest  School  of  Medicine  and  Hospital 

Kansas  City,  MO 

02843 

Kansas  City  College  of  Medicine  and  Surgery 

Kansas  City,  MO 

02844 

Kansas  City  University  of  Physicians  and  Surgeons 

Kansas  City,  MO 

02845 

Mid  West  Medical  College 

Kansas  City,  MO 

02846 

University  of  Missouri  Kansas  City  School  of  Medicine 

Kansas  City,  MO 

02878 

The  University  of  Health  Sciences  College  of  Osteopathic  Medicine 

Kansas  City,  MO 

02879 

Kirksville  College  of  Osteopathic  Medicine 

Kirksville,  MO 

03004 

Lincoln  Medical  College,  Eclectic 

Lincoln,  NE 

03005 

University  of  Nebraska  College  of  Medicine 

Omaha,  NE 

03006 

Creighton  University  School  of  Medicine 

Omaha,  NE 

03007 

Nebraska  College  of  Medicine 

Lincoln,  NE 

03101 

University  of  Nevada  School  of  Medicine 

Reno,  NV 

03201 

Dartmouth  Medical  School 

Hanover,  NH 

03305 

University  of  Medicine  and  Dentistry  of  New  Jersey-New  Jersey  Medical  School 

Newark,  NJ 
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EXHIBIT  2-1  (continued) 
REGISTRY  SCHOOL  CODES 


HCFA 


in 

LOCATION 

stow* 

i  iHinwwih*  nt  i  lA^i^inrt  a>w4  rtanttetru  nf  Mau>  lorcou.  Pnhort  VA/rwH  Inhnftm  MAHJcal  School 
University  Of  Medicine  8 nO  uefluSuy  Ol  NOW  JclScy-  rcoueti  vvoou  juiiaufi  mcKJn>ai  *jwiuvi 

Piscataway,  NJ 

UOOr  D 

University  of  Medicine  ana  uenusuy  or  r«ew  jereey-p<ew  jw&ey  owww  ui  uwwjwuiri  |*>cu,mi,g 

Camden,  NJ 

university  oi  www  mbxjcu  ounui  ui  mwiui  ic 

Albuquerque,  NM 

OOHJiTiDn  univdoliy  ooiKJyc  ui  rjiyoKftaiia  twiu  ouiycviio 

New  York,  NY 

mem 

AlKanu  Marflnal  fWlona  nf  1  Ininn  1  InhiarcJtv 
Miuany  Mcuicai  ooweye  ui  lmhuii  uiuvwauy 

Albany,  NY 

otate  university  ot  n«w  yotk  at  ounaio  ocnooi  oi  wicumirj 

Buffalo,  NY 

uoouo 

oraxe  Unrversuy  ot  new  yotk  neaiui  octencc  oeiuci  m  oi  wwyi  i 

Brooklyn,  NY 

Uoouy 

New  York  Medical  college 

Valhalla,  NY 

03510 

Beflevue  Hospital  Medical  college 

New  York,  NY 

new  yotk  tvteaicai  coiiege  ana  nospiuu  ior  women,  numcupaunv* 

New  York,  NY 

03513 

Eclectic  Medical  college  or  tne  crty  or  New  yotk 

New  York,  NY 

C+^+a  1  Iniuareitu  nf  Maui  VnrtV  Woarth  QriAnrP  Ppnfpf 

oiaie  unrversriy  or  incw  toir  neaiui  uvmnh  wwm 

Syracuse,  NY 

03519 

New  York  University  School  of  Medicine 

New  York,  NY 

03520 

Cornell  University  Medical  College 

New  York,  NY 

UoD4o 

roranarn  unrversuy  ocnooi  ot  rvieaicine 

New  York,  NY 

1  inrvAn%itv  nf  Rr*rhp<;tpr  School  of  Medicine  and  Dentistry 

Rochester,  NY 

UoD4o 

AlKari  Cinefrain  Pnllana  nf  MaHinina  nf  Vp«hK/J*  i  Inh/PreitV 

Aiuen  tinsiein  uoiieye  oi  wieuiwiie  ui  iwnv  univcjauy 

New  York,  NY 

Uoo4/ 

Mount  oinai  ocnooi  oi  Meufcine  oi  ine  oiiy  univwoiiy  ui  iicw  iu  a 

New  York,  NY 

ctato  i  inruprcitv  nf  Mow  York  at  Stonv  Rrook  School  of  Medicine 

Stony  Brook,  NY 

Uoo/O 

Maui  Vnnv  Pnikana  nf  Octonnathir  MpHirinp  of  New  York  Institute  of  Technolodv 

Old  Westbury,  NY 

UoDU  1 

1  InitiararK/  nf  Mnrth  Parnlina  at  Phaivil  Mill  School  of  Medicine 

unrversriy  oi  iNorin  vorowM  di  oiwfwi  nm  o^hwi  wi  i»icvjiwnre 

Chapel  Hill,  NC 

03603 

Leonard  Medical  School  (Black) 

Raleigh,  NC 

03604 

North  Carolina  Medical  College 

Charlotte,  NC 

uoouo 

Rnwman  r^rau  Srhnnl  nf  Mprlirinp  of  Wake  Forest  University 

Winston-Salem,  NC 

UvXXJ  / 

uunc  unrvcioiiy  owiioui  ui  ivicun^n  ic 

Durham,  NC 

03608 

East  Carolina  University  School  of  Medicine 

Greenville,  NC 

03701 

University  of  North  Dakota  School  of  Medicine 

Grand  Forks,  ND 

03801 

Medical  College  of  Ohio 

Cincinnati,  OH 

03802 

Eclectic  Medical  College 

Cincinnati,  OH 

03803 

Starling  Medical  College 

Columbus,  OH 

03806 

Case  Western  Reserve  University  School  of  Medicine 

Cleveland,  OH 

03808 

Cincinnati  College  of  Medicine  and  Surgery 

Cincinnati,  OH 

03809 

Miami  Medical  College 

Cincinnati,  OH 

03811 

University  of  Wooster  Medical  Department 

Cleveland,  OH 

03819 

Toledo  Medical  College  (Med  Dept  of  Toledo  University) 

Toledo,  OH 

03823 

Cleveland  Medical  College,  Homeopathic 

Cleveland,  OH 

03825 

Ohio  Medical  University 

Columbus,  OH 

03826 

Cleveland-Pulte  Medical  College 

Cleveland,  OH 

03840 

Ohio  State  University  College  of  Medicine 

Columbus,  OH 
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EXHIBIT  2-1  (continued) 
REGISTRY  SCHOOL  CODES 


HCFA 


IE 

SCHOOL 

LUUA 1  IvJIM 

03841 

University  of  Cincinnati  College  of  Medicine 

Cincinnati,  OH 

03843 

Medical  College  of  Ohio  at  Toledo 

Toledo,  OH 

03844 

Northeastern  Ohio  Universities  College  of  Medicine 

Rootstown,  OH 

03845 

Wright  State  University  School  of  Medicine 

Dayton,  OH 

03875 

Ohio  University  College  of  Osteopathic  Medicine 

Athens,  OH 

03901 

University  of  Oklahoma  College  of  Medicine 

Oklahoma  City,  OK 

03905 

Oral  Roberts  University  School  of  Medicine 

Tulsa,  OK 

03979 

Oklahoma  State  University  College  of  Osteopathic  Medicine 

Tulsa,  OK 

04001 

Willamette  University  Medical  Department 

Salem,  OR 

04002 

Oregon  Health  Sciences  University  School  of  Medicine 

Portland,  OR 

04101 

University  of  Pennsylvania  School  of  Medicine 

Philadelphia,  PA 

04102 

Jefferson  Medical  College  of  Thomas  Jefferson  University 

Philadelphia,  PA 

04107 

Medical  College  of  Pennsylvania 

Philadelphia,  PA 

04109 

Hahnemann  University  School  of  Medicine 

Philadelphia,  PA 

04111 

Medico-Chiiurgical  College  of  Philadelphia 

Philadelphia,  PA 

04112 

University  of  Pittsburgh  School  of  Medicine 

Pittsburgh,  pa 

04113 

Temple  University  School  of  Medicine 

Philadelphia,  PA 

04114 

Pennsylvania  State  University  College  of  Medicine 

Hershey,  rfl 

04177 

Philadelphia  College  of  Osteopathic  Medicine 

Philadelphia,  pa 

04201 

University  of  Puerto  Rico  School  of  Medicine 

San  Juan,  Puerto  Rico 

04202 

Ponce  School  of  Medicine 

Ponce,  Puerto  Rico 

04203 

University  Central  del  Caribe  Escuela  de  Medicina 

Cayey,  Puerto  Rico 

04204 

Ciencias  Medicina  de  San  Juan  Bautista 

Hato  Rey,  Puerto  Rico 

04301 

Brown  University  Program  in  Medicine 

Providence,  Rl 

04501 

Medical  University  of  South  Carolina  College  of  Medicine 

Charleston,  so 

04504 

University  of  South  Carolina  School  of  Medicine 

Columbia,  SC 

04601 

University  of  South  Dakota  School  of  Medicine 

Vermillion,  SD 

04701 

University  of  Nashville  Medical  Department 

Nashville,  TN 

04705 

Vanderbilt  University  School  of  Medicine 

Nashville,  TN 

04706 

University  of  Tennessee  College  of  Medicine 

Memphis,  TN 

04707 

Meharry  Medical  College  School  of  Medicine 

Nashville,  TN 

04708 

Memphis  Hospital  Medical  College 

Memphis,  TN 

04709 

Chattanooga  Medical  College 

Chattanooga,  TN 

04710 

Lincoln  Memorial  University  Medical  Department 

Knoxville,  TN 

04711 

University  of  the  South  Medical  Department 

Sewanee,  TN 

04713 

Knoxville  Medical  College  (Black) 

Knoxville,  TN 

04714 

University  of  West  Tennesee  College  of  Medicine  and  Surgery  (Black) 

Memphis,  TN 

04715 

College  of  Physicians  and  Surgeons 

Memphis,  TN 

04720 

East  Tennessee  State  University  James  H.  Dishner  College  of  Medicine 

Johnson  City,  TN 
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EXHIBIT  2-1  (continued) 
REGISTRY  SCHOOL  CODES 


HCFA 


in 

SCHOOL 

LOCATION 

04802 

University  of  Texas  Medical  Branch  at  Galveston 

Galveston,  TX 

r  Of  I  worm  ocnooi  \ji  nncuiwtiie 

Fort  Worth,  TX 

04804 

Baylor  University  College  Of  Medicine 

Houston,  TX 

04805 

Physio-Medical  College  of  Texas 

Dallas,  TX 

04806 

Southern  Methodist  University  Medical  Department 

Dallas,  TX 

04807 

Gate  Citv  Medical  Collecie 

Dallas,  TX 

\J*rO  1  £ 

i  iniuarciKj  r»f  Tovac  Q/u  ithuwctpm  MpHirjil  npntpr  at  Dallas  School  of  Medicine 
university  oi  I  exas  oouuiwcshci  ii  ivicuivo.1  umn  ok  uautw      «w»  «i  • 

Dallas,  TX 

U*IO  1  O 

l  inh/cmitv  nf  Tmnw  Meriiral  School  at  San  Antonio 

San  Antonio,  TX 

A 

LKK51  4 

university  oi  i  exas  ivieutGai  ociwui  ai  nuu_Hvn 

Houston,  TX 

Ttti«e  Ts^h  1  IwhwiifTh/  Uoalfh  ^irion/^pc  P  Antpf  ^rhool  of  Medicine 

l  exas  l  ©en  university  ncaiui  oucimio  wnitn  -*vnwi  w  nnmmw 

Lubbock,  TX 

Tovac  AS.M  1  InK/Arcih/  Pnllpnp  nf  Mpriirinp 

College  Station,  TX 

LKtO  /  O 

Tavae  P/tHana  nf  f~lci©r>riathi("'  MpriirinP 

1  exas  ouiicyc  oi  uaicuLKJiiiiu.  ivicui^u  ic 

Fort  Worth,  TX 

u*tyui 

1  Irtrwarcrhs  nf  1  Itah  ^r^hnnl  nf  MpHirinP 
UnlVcfSliy  OI  Uldll  OwllUUl  UI  lYlCVJrVil  rc 

Salt  Lake  City,  UT 

05002 

1  Inh/prettv  nf  Vermont  Colleoe  of  Medicine 

Burlington,  VT 

05101 

University  of  Virginia  School  of  Medicine 

Charlottesville,  VA 

UO 1 U*f 

Virninia  fnmmnnwpfllth  ( Inh/Pfsitv  Medical  ColleQe  Of  Viroinid 

Richmond,  VA 

I  inK/prcitv  PrJtpop  nf  Medicine 

Richmond,  VA 

UOlUf 

Pactom  Y/irninia  MaHLt^aI  ^rhiYJ 
Caoicfii  vuyiiiia  rviwjH-'di  o^t iw 

Norfolk,  VA 

UD4U4 

1  inK/orcitv  nf  \A/a«hirwitnn  ^rhooi  of  Medicine 

UnlVcfSliy  OI  V V do!  111  ryiUI  1  wUIWi  m  »»rwVJr\^ii  »e 

Seattle,  WA 

UD41 O 

vvasningiuii  ooiieye  ui  riiysnvkiira  aiiu  ouiycvi  10 

Seattle,  WA 

05501 

West  Virginia  University  School  of  Medicine 

Morgantown,  WV 

05502 

Marshall  University  School  of  Medicine 

Huntington,  WV 

rvw7*? 

Wpct  Virninia  ^rhnoi  nf  Osteooathic  Medicine 

Lewisburg,  WV 

Wicr-nn^in  CoJIpop  of  Phvsicians  and  Suraeons 

Milwaukee,  Wl 

05603 

Milwaukee  Medical  College 

Milwaukee,  Wl 

05605 

University  of  Wisconsin  Medical  School 

Madison,  Wl 

05606 

Medical  College  of  Wisconsin 

Milwaukee,  Wl 

OOOXa 

California  College  of  Podiatric  Medicine 

San  Francisco,  CA 

OOOXb 

Dr.  William  M.  Scholl  College  of  Podiatric  Medicine 

Chicago,  IL 

OOOXc 

New  York  College  of  Podiatric  Medicine 

New  York,  NY 

OOOXd 

Ohio  College  of  Podiatric  Medicine 

Cleveland,  OH 

OOOXe 

Pennsylvania  College  of  Podiatric  Medicine 

Philadelphia,  PA 

OOOXk 

Barry  University  School  of  Podiatric  Medicine 

Miami  Shores,  FL 

000X) 

College  of  Podiatric  Medicine  And  Surgery 

Des  Moines,  IA 

OOOXf 

Temple  University 

Philadelphia,  PA 

OOOXg 

Chicago  College  of  Chiropody 

Chicago,  IL 

OOOXh 

Long  Island  University  College  of  Podiatry 

New  York,  NY 

OOOXi 

First  Institute  Podiatry 

New  York,  NY 

30000 

California  College  of  Podiatric  Medicine 

San  Francisco,  CA 
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EXHIBIT  2-1  (continued) 


REGISTRY  SCHOOL  CODES 


HCFA 

ID 

SCHOOL 

LOCATION 

30100 

Dr.  William  M.  Scholl  College  of  Podiatric  Medicine 

Chicago.  IL 

30200 

New  York  College  of  Podiatric  Medicine 

New  York,  NY 

30300 

Ohio  College  of  Podiatric  Medicine 

Cleveland,  OH 

30400 

Pennsylvania  College  of  Podiatric  Medicine 

Philadelphia,  PA 

30500 

Barry  University  School  of  Podiatric  Medicine 

Miami  Shores,  FL 

30600 

College  of  Podiatric  Medicine  And  Surgery 

Des  Moines,  IA 

40000 

University  of  Alabama  School  of  Optometry 

Birmingham,  AL 

40010 

University  of  Calfomia  School  of  Optometry 

Berkeley,  CA 

40020 

Ferris  State  College  of  Optometry 

Big  Rapids,  Ml 

40030 

University  Of  Houston  School  of  Optomerty 

Houston,  TX 

40040 

Illinois  College  of  Optometry  at  Chicago 

Chicago,  IL 

40050 

Indiana  University  School  of  Optometry 

Bloomington,  IN 

40060 

International  American  University  at  Puerto  Rico  School  of  Optometry 

San  Juan,  Puerto  Rico 

40070 

University  of  Missouri  School  of  Optometry 

St.  Louis,  MO 

40080 

University  of  Montreal  School  of  Optometry 

Montreal,  Canada 

40090 

New  England  College  of  Optometry 

Boston,  MA 

40100 

Berkeley  Northeastern  State  University  College  of  Optometry 

Tahlequah,  OK 

40110 

State  University  of  New  York  School  of  Optometry 

New  York,  NY 

40120 

Ohio  State  University  School  of  Optometry 

Columbus,  OH 

40130 

Pacific  University  School  of  Optometry 

Columbus,  OH 

40140 

Pennsylvania  College  of  Optometry 

Philadelphia,  PA 

40150 

Southern  California  College  of  Optometry 

Fullerton,  CA 

04160 

Southern  College  of  Optometry 

Memphis,  TN 

40170 

University  of  Waterloo  School  of  Optometry 

Ontario,  Canada 

50000 

Chiropractic  Unknown  School 

Levittown,  PA 

50010 

Adio/Pennsylvania  College  of  Straight  Chiropractic 

50020 

Atlantic  State/Columbia  Chiropractic 

Brooklyn,  NY 

50030 

Bebout  College  of  Chiropractic 

Indianapolis,  IN 

50040 

Booker  T.  Washington  Chiropractic 

Kansas  City,  MO 

50050 

Logan  College  of  Chiropractic 

Oklahoma  City,  OK 

50060 

Los  Angeles  Chiropractic 

Los  Angeles,  CA 

50065 

Central  States  Physiatrics  and  Chiropractic 

Eaton,  OH 

50070 

Canadian  Memorial  Chiropractic 

Toronto,  Ontario 

50080 

Chiropractic  Institute  of  New  York 

New  York,  NY 

50090 

Crisco  Chiropractic 

Crisco,  TX 

50100 

Cleveland  Chiropractic  College  of  Cleveland  University-Los  Angeles 

Los  Angeles,  CA 

50110 

Cleveland  Chiropractic  College 

Kansas  City,  MO 

50120 

Columbia  ChiroprarJc 

Baltimore,  MD 

50130 

Columbia  Chiropratic 

Alameda,  CA 

upin\deliver2\EXHIB2-1  XLS\sjb 
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EXHIBIT  2-1  (continued) 
REGISTRY  SCHOOL  CODES 


HCFA 


ID 

SCHOOL 

LOCATION 

50140 

Columbia  Chirooractlc  and  Naturooathv 

Sacramento,  CA 

50150 

Columbia  Institute  of  Chiropratic 

New  York,  NY 

50160 

Hnitvumnri  P.  h iroorafitif^ 

f  IWnifWIIII  wl  III  UH  QuUv 

Hollywood,  CA 

50170 

1  afavettp  Chirooractic  Institute 

Philadelphia,  PA 

50180 

Life  Chiropractic  College-West 

San  Lorenzo,  CA 

50190 

Lincoln  Chiropractic 

Marietta,  GA 

50200 

Reaver  School  Chiropractic 

Dayton,  OH 

50210 

Restview  Chiropractic 

Seattle,  WA 

50220 

San  Francisco  Chiropractic 

San  Francisco,  CA 

50230 

Sherman  Straight  Chiropractic 

Spartanburg,  SC 

50240 

Western  States  Chiropractic  College 

Portland,  OR 

50250 

University  of  Pasadena  Chiropractic 

Pasadena,  CA 

50260 

Natural  Healing  Chiropractic 

Denver,  CO 

50270 

National  College  of  Chiropractic 

Lombard,  IL 

50280 

New  York  Chiropractic  College 

Glen  Head,  NY 

50290 

Northwestern  College  of  Chiropractic 

Bloomington,  MN 

50300 

Palmer  College  of  Chiropractic 

Davenport,  IA 

50310 

Palmer  College  of  Chiropractic-West 

West  Sunnyvale,  CA 

Note:  It  appears  that  three  codes  have  been  assigned  to  the  medical  school  at  the  University  of  California  at  Irvine  (see  shaded  lines  on  first 
page  of  this  exhibit). 
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/******************************************************* 

/*  */ 

/*  -Check  school  code  */ 
/*  */ 
/********************************************************/ 


DATA  S  ; 
SET  IN.JUL0293 

(KEEP-SETMDSCH) ; 


/*  SETTING  MEDICAL  SCHOOL  CODE  (SETMDSCH)  */ 


IF  SETMDSCH  IN  ('00102 
•00501' 
•00508' 
•00515' 
•00702' 
'01003' 
•01205' 
'01221' 
•01605' 
•01613' 
•01619' 
•01645' 
'01718' 
'01808' 
'01907' 
'02008' 
•02105' 
•02304' 
'02311' 
•02415' 
■02512' 
•02701' 
•02807' 
•02828' 
•02844' 
'03005' 
•03306' 
•03508' 
•03519' 
•03548' 
'03607' 
'03806' 
•03825' 
•03845' 
'04002' 
•04112' 
•04203' 
•04701' 
'04710' 
•04802' 
'04812' 
•04901' 
•05404' 


'01606' , '01608' 
'01614' , '01615' 


' 00104 ' , ' 00106 ' , ' 00301 ' , ' 00401 ' 
00502' , '00504' , '00505' , '00506' , 
00509' , '00511' , '00512' , '00513' , 
00516' , '00517' , '00518' , '00519* , 
00705' , '00801' , '00802' , '01001' , 
01102' , '01103' , '01104' , '01175' , 
01209' , '01211' , '01212' , '01218* , 
01222' , '01401' , '01601' , '01602' , 
01609' , '01610' , 
01616' , '01617' , 
'01622' , '01623* , '01642' , '01643' , 
'01675' , '01705' , '01708' , '01709' , 
'01720' , '01801' , '01803' , '01804' , 
•01810' , '01875' , '01902' , '01903' , 
' 02001 ' , ' 02002 ' , ' 02004 ' , ' 02005 ' , 
'02009' , '02011' , '02012' , '02101' , 
'02106' , '02201' , '02275' , '02301' , 
•02305' , '02306' , '02307' , '02308' , 
'02312' , '02401' , '02405' , '02406' , 
'02416' , '02501' , '02505' , '02507' , 
•02576' , '02604' , '02605' , '02607' , 
•02702' , '02801' , '02802' , '02803' , 
•02808' , '02810' , '02820* , '02822* , 
■02830' , '02833' , '02834' , '02835' , 
•02845' , '02846' , '02878' , '02879' 
•03006' , '03007' , '03101' , '03201' 
•03375' , '03401' , '03501' , '03503' 
•03509' , '03510' , '03511' , '03513' 
•03520' , '03543' , '03545' , '03546' 
•03575' , '03601' , '03603' , '03604' 
'03608' , '03701' , '03801' , '03802' 
'03808' , '03809' , '03811' , '03819' 
•03826' , '03840' , '03841' , '03843' 
'03875' , '03901* , '03905' , '03979' 
' 04101 ' , ' 04102 ' , ' 04107 ' , *  C 109 ' 
•04113' , '04114' , '04177' , '04201' 
•04204' , '04301' , '04501' , '04504' 
•04705' , '04706* , '04707' , '04708' 
'04711- , '04713' , '04714' , '04715' 
'04803' , '04804' , '04805' , '04806' 
'04813' , '04814' , '04815' , '04816 1 
•05002' , '05101' , '05104' , '05106' 
•05415' , '05501' , '05502' , '05575' 


, '00402' 
•00507' , 
•00514' , 
'00576' , 
'01002' , 
'01201' , 
'01219' , 
'01604' , 
•01611'  , 
'01618'  , 
•01644' , 
•01717'  , 
•01806' , 
•01904' , 
•02007' , 
•02104' , 
•02303' , 
•02309* , 
'02407' , 
'02508'  , 
'02608'  , 
'02805'  , 
•02826' , 
'02843'  , 
'03004' , 
'03305'  , 
•03506' 
•03515' 
•03547' 
•03605" 
, '03803' 
, '03823' 
, '03844' 
, '04001' 
, '04111' 
, '04202' 
, '04601' 
, '04709' 
, '04720' 
, '04807' 
, '04878' 
, '05107' 
, '05602' 


-29- 


'05603' , '05605' , '05606' , '000XF' , 'OOOXG' , 
'  OOOXH '  ,  '  OOOXI '  ,  '  30000 '  ,  '  30100 '  ,  '  30200 '  ,  *  30300 ' 
' 30400 ' , ' 30500 ' , ' 30600 ' , ' 40000 ' , ' 40010 ' , ' 40020 ' 
•40030' , '40040' , '40050' , '40060' , '40070' , '40080' 
'40090' , '40100' , '40110' , '40120' , '40130' , '40140' 
' 40150 ' , ' 04160 ' , ' 40170 ' , ' 50000 ' , *  50010  \  ' 50020 ' 
' 50030 ' , ' 50040 ' , ' 50050 ' , ' 50060 ' , ' 50065 ' , ' 50070 ' 
' 50080 ' , ' 50090 ' , ' 50100 ',' 50110 ', ' 50120 ' , ' 50130 ' 
'50140' , '50150' , ' 50160' , '50170' , '50180' , '50190' 
'50200' , '50210' , '50220' , '50230' , '50240' , '50250' 
•50260' , '50270' , '50280' , '50290' , '50300' , '50310' 
' 99999 ' , ' 10000 ' , ' 20000 ' ) 
THEN  HMEDSCHS-' F' ; 

ELSE  IF  SETMDSCHA— RIGHT (SETMDSCH)  THEN  HMEDSCHS- ' J ' ; 

ELSE  IF  SETMDSCH  IN  ( ' OOOXA ' , ' OOOXB ' , * OOOXC ' , ' OOOXD ' , ' OOOXE * , 

'OOOXJ' , 'OOOXK' )  THEN  HMEDSCHS-' R' ; 

ELSE  IF  SETMDSCH  IN  ('  ',' 00000 ',' 00001 ' )  THEN  HMEDSCHS-' 

ELSE  HMEDSCHS-* E' ; 

OUTPUT  S; 

RUN; 

PROC  FREQ  DATA—S  ORDER-FREQ;  TABLES  HMEDSCHS; 

TITLE1  '****  SETTING  ****'; 
RUN; 
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DATA  ELEMENT:  GRADUATION  YEAR 


Graduation  year  is  a  required  data  element.  Values  are  often  missing;  year  equal  to  zero  frequently 
occurs.  Completely  erroneous  codes  occur  less  frequently  (e.g.,  year  equal  to  96). 


Data  Format: 

Carrier  Record:  PIC  9(02);  Component  Order:  YY 
Registry  File:  PIC  S9(09)  COMP-3;  Component  Order:  YY 


Flag  assignment  hierarchy,  in  descending  order  of  priority: 


Hag 

Definition 

Criteria 

J 

Not  properly  justified 

not  right  justified 

F 

Feasible 

40<graduation  year<93 

D 

Dubious 

30<graduation  year<39 

M 

Missing 

year=0  or  99 

E 

Erroneous 

all  other  values  (including 
1930-1933) 

Notes: 

(1)  In  1993,  a  graduation  year  of  39  implies  an  age  of  79  (assuming  graduation  at  age  25). 
While  plausible,  providers  aged  79-89  should  be  reviewed  for  claim  activity. 

(2)  The  upper  and  lower  bounds  for  the  feasible  and  dubious  criteria  should  be  annually 
adjusted  upward  by  one. 

(3)  Note  that  the  carrier  record  and  Registry  file  have  different  COBOL  pictures  (see  Exhibit 
1-1). 
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FLOWCHART  FOR 
GRADUATION  YEAR  (GRADYR)  INTEGRITY 
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/******************************************************** 

/*  */ 

/*  -Check  graduation  year  */ 
/*  */ 
/**************************************^ 

DATA  S; 
SET  IN.JUL0293 

(KEEP-SETGRDYR) ; 


/*  SETTING  GRADUATION  YEAR  (SETGRDYR)  */ 

IF  40<-SETGRDYR<-93  THEN  HGRADYRS- ' F ' ; 

ELSE  IF  SETGRDYRA-RIGHT( SETGRDYR)  THEN  HGRADYRS- ' J ' ; 

ELSE  IF  30<-SETGRDYR<-39  THEN  HGRADYRS- ' D ' ; 

ELSE  IF  SETGRDYR  IN  (0,99,.)  THEN  HGRADYRS- 'M' ; 

ELSE  HGRADYRS- ' E ' ; 

OUTPUT  S; 

RUN; 

PROC  FREQ  DATA-S  ORDER=FREQ;  TABLES  HGRADYRS; 

TITLE1   '****  SETTING  ****'; 
RUN; 
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DATA  ELEMENT:  SPECIALTY  CODE 


The  primary  specialty  code  is  a  required  data  element,  but  the  secondary  is  not.  Although  feasible,  use 

of  codes  equal  to  49  (miscellaneous)  or  99  (unknown)  occurs  too  frequently. 

Data  Format: 

Carrier  Record:  PIC  9(02) 

Registry  File:  PICX(02) 

Flag  assignment  hierarchy,  in  descending  order  of  priority: 

Flag 

ueiinition  StHHrffM 

F 

Feasible  01-08,10-14,16,18-20,22,24-26, 

ooon  'xrLAA  aa  Af.  aq      70  76-79 

81-86,  90-94 

R 

Retired  9,15,17,21,23,27,31,32 

u 

Unknown  99 

Miscellaneous 

M 

Missing                                            0,  00,  or  blank 

E 

Erroneous                                      all  other  values 

Notes: 

(1) 

The  value  00  is  considered  missing  because  of  carrier  instructions. 

(2) 

Other  specialty  codes  (not  in  F,  R,  U,  or  S)  are  considered  erroneous  since  they  are  for  providers  not  covered  by 

the  Registry. 

(3) 

Although  a  valid  code  in  the  past,  the  miscellaneous  code  (49)  should  no  longer  be  used  for  UPIN  providers. 

(4) 

Except  for  12,  osteopathic  codes  were  re-assigned  in  October  1991: 

Old                          New  Assignment 

09  16 

15  16 

17                                   18  or  04 

21  22 

23  76 

27  86 

31  30 

32  92 
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FLOWCHART  FOR 
PRIMARY  SPECIALTY  CODE  (SC)  INTEGRITY 


/********************************************************/ 

/*  */ 

/*  -Check  specialty  codes  */ 

/*  */ 
/**************************************^ 

DATA  S; 
SET  IN.JUL0293 

(KEEP-SPEC1  SPEC2) ; 

/*  PRIMARY  SPECIALTY  (SPEC1)  */ 

IF  (  '01'<-SPECK-'08' )  OR  ( '  10  'OSPECK- '  14 '  )  OR  (  '  18  '<-SPECK- '  20 ' )  OR 
( '24*  OSPECK- '26' )  OR  ( ' 28 ' <-SPECl<-' 30 ' )  OR  ( ' 33 'OSPECK- '41 ' )  OR 
(SPEC1  IN  ('16' , '22' , '44* , '46' , '48' , '66' , '70' ))  OR 
(,76,<-SPECl<-'79')  OR  ( '81'<-SPECl<-'86' )  OR  (  '  90 '<-SPECK-' 94' ) 
THEN  HSPEC1-'F' ; 

ELSE  IF  SPEC1  IN  ( ' 09 ' , ' 15 ' , ' 17 ' , ' 21 ' , ' 23 ' , ' 27 ' , ' 31 ' , ' 32 ' )  THEN  HSPEC1='R 
ELSE  IF  SPEC1  IN  ('     ','  O'.'OO')  THEN  HSPECl-'M* ; 
ELSE  IF  SPECl-'99'  THEN  HSPEC1-'U' ; 
ELSE  IF  SPECl-'49'  THEN  HSPEC1='S'; 
ELSE  HSPEC1-'E' ; 

/*  SECONDARY  SPECIALTY  (SPEC 2)  */ 

IF  ( '01'<=SPEC2<-'08')  OR  ( ' 10 ' <=SPEC2<= ' 14 ' )  OR  ( ' 18 ' <=SPEC2<= ' 20 ' )  OR 
('24*<-SPEC2<='26')  OR  ( ' 28 ' <=SPEC2<- ' 30 ' )  OR  ( ' 33 ' <=SPEC2<= ' 41 ' )  OR 
(SPEC2  IN  ('16' , '22' , '44' , '46' , '48' , '66' , '70'))  OR 
('76'<=SPEC2<='79')  OR  ( ' 81 ' <=SPEC2<= ' 86 ' )  OR  ( ' 90 ' <=SPEC2<= ' 94 ' ) 
THEN  HSPEC2='F' ; 

ELSE  IF  SPEC2  IN  ( * 09 ' , ' 15 ' , ' 17 ' , ' 21 ' , ' 23 ' , ' 27 ' , ' 31 ' , ' 32 ' )  THEN  HSPEC2='R 
ELSE  IF  SPEC2  IN  ( '     ','  O'.'OO')  THEN  HSPEC2='M'; 
ELSE  IF  SPEC2-'99'  THEN  HSPEC2='U'; 
ELSE  IF  SPEC2-'49'  THEN  HSPEC2='S'; 
ELSE  HSPEC2='E' ; 

RUN; 

PROC  FREQ  ORDER-FREQ ;  TABLES  HSPEC1  HSPEC2 ; 
RUN; 
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DATA  ELEMENT:  SANCTION  CODE 


Sanction  code  should  be  present  if  available.  Of  the  approximately  four  thousand  entered  codes,  about 
25%  are  in  the  unknown  category  (see  Table  2-1). 


Data  Format: 

PIC  X(01)  for  both  carrier  record  and  Registry  File. 


Flag  assignment  hierarchy,  in  descending  order  of  priority: 


Flag 

Definition 

Criteria 

F 

Feasible 

A  through  R 

U 

Unknown 

U 

M 

Missing  (See  Note) 

Blank 

E 

Erroneous 

all  other  values 

Note: 


(1)        A  blank  is  used  to  indicate  that  a  provider  is  not  sanctioned;  therefore,  the  blank  value  is 
not  considered  a  missing  value.  The  only  time  a  blank  value  might  be  indicative  of  a 
problem  is  when  sanction  date  or  length  have  feasible  values;  however,  this  algorithm  is 
not  intended  to  evaluate  a  blank  in  relation  to  data  in  the  sanction  date  or  sanction 
length  fields. 
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FLOWCHART  FOR  SANCTION  CODE 
(SANC)  INTEGRITY 


/********************************************************/ 

/*  */ 

/*  -Check  sanction  code  */ 
/*  */ 
/*********************************** 

DATA  S  ; 
SET  IN.JUL0293 

(KEEP— SANC2) ; 


/*  SETTING  SANCTION  CODE  (SANC2)  */ 

IF  'A'<-SANC2<-,R'  THEN  HSANCS- ' F ' ; 
ELSE  IF  SANC2-'    '  THEN  HSANCS-' M' ; 
ELSE  IF  SANC2-'U'  THEN  HSANCS- 'U'; 
ELSE  HSANCS-* E' ; 
OUTPUT  S; 

RUN; 

PROC  FREQ  DATA-S  ORDER-FREQ;  TABLES  HSANCS; 

TITLE1  '****  SETTING  ****'; 
RUN; 
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DATA  ELEMENT:  SANCTION  DATE 


Sanction  date  should  be  present  if  available.  Implausible  dates  frequendy  occur,  especially  years  prior 
to  the  establishment  of  Medicare  or  after  1993. 


Data  Format: 

For  both  Carrier  Record  and  Registry  File:  PIC  9(04);  Component  Order:  MMYY 

Flag  assignment  hierarchy,  in  descending  order  of  priority: 

Hag 

Definition  Criteria 

F 

Feasible                                         66<year<93  and 

l<month<12 

M 

Missing                                            0  or  blank 

E 

Erroneous                                        all  other  values 

Notes: 

(1) 

The  upper  bound  of  feasible  years  needs  to  be  annually  incremented  upward. 

(2) 

Similar  to  sanction  code,  non-sanctioned  providers  should  have  a  zero  or  blank,  which 
normally  should  not  be  considered  a  missing  value. 

(3) 

If  the  year  component  of  the  date  is  zero  or  blank,  then  the  sanction  date  is  flagged  as 
missing,  regardless  of  the  contents  of  the  month  field. 

-40- 


FLOWCHART  FOR  EFFECTIVE 
DATE  OF  SANCTION  (EDS)  INTEGRITY 


/********************************************************/ 

/*  */ 

/*  -Check  sanction  date  */ 

/*  */ 
/********************************************************/ 

DATA  S; 
SET  IN.JUL0293 

(KEEP=SANC2DAT) ; 

/*  EFFECTIVE  DATE  OF  SANCTION  (SANC2DAT)  */ 

IF  SANC2DAT"-.  THEN  DO; 

SANC2MO  -  SUBSTR(SANC2DAT,9,2) ; 

SANC2YR  -  SUBSTR(SANC2DAT,11)2) ; 
END; 

IF  SANC2DAT  IN  (0,.)  THEN  HSANCDTS-'M' ; 

ELSE  IF  ( *66'<-SANC2YR<-'93* )  &  ('   1 '<-SANC2MO<=-' 12 ' )  &  SANC2MOA-' 00 ' 

THEN  HSANCDTS-'F' ; 
ELSE  HSANCDTS-'E' ; 
OUTPUT  S; 

RUN; 

PROC  FREQ  DATA=S  ORDER=FREQ;   TABLES  HSANCDTS ; 

TITLE1   '****  SETTING  ****'; 
RUN; 
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DATA  ELEMENT:  SANCTION  LENGTH 


Sanction  length  should  be  present  if  available.  The  list  of  sanctioned  providers  issued  by  HCFA's 
Office  of  the  Inspector  General  (OIG)  includes  the  sanction  term  (length)  as  we^  as  the  type  of 
sanction  and  the  effective  date.  Sanction  terms  longer  than  15  years  are  incremented  by  five. 
Since  formal  guidelines  for  coding  sanction  length  have  not  been  issued,  rather  than  denote 
values  such  as  16  as  erroneous,  they  have  been  classified  as  dubious. 


Data  Format: 

Carrier  Record:  PIC  9(02) 
Registry  File:  PIC  S9(03)  COMP-3 

Flag  assignment  hierarchy,  in  descending  order  of  priority: 

Flag 

Definition  Criteria 

F 

Feasible                                         1-15,  20,  25,  30,  35,  40,  45,  50, 

or  99 

D 

Dubious                                           16-19,  21-24,  26-29,  31-34, 

36-39, 41^4,  46-49,  51-98 

M 

Missing                                         0  or  blank 

E 

Erroneous                                        length  <  0  or  length  >100 

Notes: 

(1) 

Starting  with  sanction  length  15,  sanction  length  increments  by  five  years.  A  value  of  99 
indicates  an  indefinite  sanction  length. 

(2) 

As  with  sanction  date,  non-sanctioned  providers  should  have  a  zero  or  blank  and,  thus 
should  not  be  considered  a  missing  value. 
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FLOWCHART  FOR  SANCTION  LENGTH 
(SL)  INTEGRITY 


/********************************************************/ 

/*  */ 

/*  -SANCTION  LENGTH  INTEGRITY  CHECKS  */ 

/*  */ 
/********************************************************/ 

DATA  S; 
SET  IN.JUL0293 

(KEEP-SANC2YRS) ; 


/*  SETTING  LENGTH  OF  SANCTION  (SANC2YRS)  */ 

IF  (1<-SANC2YRS<-15)  OR  (SANC2YRS  IN  (20,25,30,35,40,45,50,99)) 
THEN  HSANCYRS- ' F ' ; 
ELSE  IF  SANC2YRS  IN  (0,.)  THEN  HSANCYRS- ' M' ; 
ELSE  IF  (16<-SANC2YRS<-19)  OR  (21<-SANC2YRS<-24)  OR 
(26<-SANC2YRS<-29)  OR  (31<-SANC2YRS<-34)  OR 
(36<=SANC2YRS<=39)  OR  (41<=SANC2YRS<=44)  OR 
(46<=SANC2YRS<=49)  OR  (51<=SANC2YRS<=98) 
THEN  HSANCYRS-' D' ; 
ELSE  HSANCYRS-' E' ; 
OUTPUT  S; 

RUN; 

PROC  FREQ  DATA-S  ORDER-FREQ;  TABLES  HSANCYRS; 

TITLE1  '****  SETTING  ****' ; 
RUN; 
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DATA  ELEMENT:  PROVIDER  CREDENTIALS 


Provider  credentials  are  a  required  data  element  and  should  be  left-justified. 

Data  Format: 

PIC  X(03)  for  both  Carrier  Record  and  Registry  File. 


Flag  assignment  hierarchy,  in  descending  order  of  priority: 
Flag  Definition 
F  Feasible 


M 
E 


Missing 
Erroneous 


Criteria 

MD,  DO,  DDS,  DDM,  DPM, 
CH,  or  OD 

blank 

all  other  values 


Note: 


(1)        We  had  already  left-justified  the  data  element  before  analyzing  it,  therefore  we  did  not 
include  a  justification  test. 
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FLOWCHART  FOR  PROVIDER 
CREDENTIALS  (PC)  INTEGRITY 


/*  */ 

/*  -Check  integrity  of  provider  credentials  */ 
/*  */ 
/********************************************************/ 

DATA  S; 
SET  IN.JUL0293 

( KEEP-CREDENTL) ; 

/*    PROVIDER  CREDENTIALS  (CREDENTL)  */ 

IF  CREDENTL  IN  ( 'MD  ' , "DO  '  , ' DDM' , 'DDS' , ' DPM' ,  'CH  • , 'OD  ' )  THEN  HCREDNTL— ' 
ELSE  IF  CREDENTL-'       '  THEN  HCREDNTL-' M' ; 
ELSE  HCREDNTL-' E' ; 

RUN; 

PROC  FREQ  ORDER-FREQ;  TABLES  HCREDNTL  ; 
RUN; 
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DATA  ELEMENT:  PHYSICIAN  STATUS 


Physician  status  is  a  required  data  element. 

Data  Format: 

Carrier  Record:  PIC  9 

Registry  File:  PICX(Ol) 

Flag  assignment  hierarchy,  in  descending  order  of  priority: 
Flag  Definition 

F  Feasible 
M  Missing 
E  Erroneous 

Criteria 

lor  2 

0  or  blank 

all  other  values 
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FLOWCHART  FOR  PHYSICIAN 
STATUS  (PS)  INTEGRITY 


i 

in 
o 
i 


No 


Flag  = 

■  E 

Flag  =  M 


/************************************^ 

/*  */ 

/*  -Check  the  integrity  of  physician  status  */ 
/*  */ 
/**************************************^ 

DATA  S; 
SET  IN.JUL0293 

(KEEP-PHYSSTAT) ; 

/*  PHYSICIAN  STATUS  (PHYSSTAT)  */ 

IF  PHYSSTAT  IN  ( ' 1 ' , *  2  * )  THEN  HPHYSTAT- ' F' ; 
ELSE  IF  PHYSSTAT  IN  ('0','    ')  THEN  HPHYSTAT='M' ; 
ELSE  HPHYSTAT-' E' ; 
RUN; 

PROC  FREQ  ORDER-FREQ;  TABLES  HPHYSTAT; 
RUN; 
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CHAPTER  3 

LOGICAL  CONSISTENCY  BETWEEN  DATA  ELEMENTS 


INTRODUCTION 


One  of  the  potential  problems  that  can  occur  in  a  provider  file  is  logical  inconsistency 
between  data  elements  (variables)  within  a  single  record.  An  example  of  a  logical  inconsistency 
is  when  the  provider  status  variable  indicates  that  the  provider  is  a  physician  or  an  osteopath 
while  the  provider  credential  variable  indicates  that  the  provider  is  an  optometrist.  In  this 
particular  example,  both  of  the  variables  have  feasible  values.  It  is  not  immediately  clear, 
however,  which  of  the  variables  is  improperly  coded.  In  some  instances,  the  value  of  a  third 
variable  might  help  resolve  the  conflict  while  in  other  cases,  it  would  be  necessary  for  the 
carrier  to  check  its  hard  copy  files  and/ or  directly  contact  the  provider. 

This  chapter  specifies  the  logically  consistent  values  for  pairs  of  data  elements. 
Flowcharts  and  SAS  programs  implementing  the  specifications  are  also  included.  The 
specifications  for  each  pair  of  data  elements  have  several  subsections.  First,  for  each  pair  of 
data  elements  for  which  comparisons  are  to  be  made,  an  example  of  an  inconsistency  is  given. 
Next,  specifications  for  consistent  values  are  provided.  These  specifications  are  based  upon  the 
data  integrity  tests  presented  in  the  previous  chapter.  Therefore  it  is  necessary  to  first 
implement  the  data  element  integrity  algorithms  described  in  Chapter  2.  In  this  chapter,  the 
flowcharts  do  not  include  the  data  integrity  checks,  but  the  SAS  programs  do  include  them. 
(For  example,  at  the  beginning  of  the  flowchart  for  the  logical  consistency  between  physician 
status  and  provider  credentials,  there  is  a  test  of  whether  the  respective  flag  values  of  these  two 
data  elements  are  both  equal  to  F,  thus  assuming  that  the  flag  variables  have  been  created.  The 
SAS  code  on  the  following  page,  however,  includes  the  creation  of  these  two  flag  variables.) 

The  logical  comparisons  between  pairs  of  data  elements  are  not  limited  to  the  strictly 
feasible  values  as  defined  in  Chapter  2.  The  flag  values  for  specialty  codes  in  Chapter  2,  for 
instance,  included  R  (retired),  U  (unknown),  and  S  (miscellaneous).  These  flag  values  for 
specialty  code  denote  instances  in  which  codes  are  still  being  used  but  do  not  meet  the  strict 
criteria  necessary  to  be  denoted  as  feasible  (code  F).  Rather  than  collectively  referring  to  codes 
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F,  R,  U,  and  S  as  feasible,  to  avoid  confusion,  they  are  collectively  referred  to  as  acceptable. 
Codes  not  designated  as  acceptable  are  designated  as  unacceptable.  Some  codes  such  as  M 
(missing)  sometimes  are  acceptable  (e.g.,  sanction  code)  while  for  other  data  elements  (e.g., 
specialty  code),  are  not.  The  reason  is  that  for  data  elements  such  as  sanction  code,  the  missing 
value  code  has  two  roles  (see  Chapter  2  for  examples). 

For  each  pair  of  data  elements,  acceptable  values  are  compared  as  indicated  in  the 
specifications.  They  are  either  consistent  or  inconsistent.  If  one  of  the  data  elements  has  an 
unacceptable  value,  then  it  is  not  compared  to  an  acceptable  value.  The  logical  consistency  flag 
(LCF)  consists  of  four  values: 

LCF  Criteria 

N  One  or  both  data  elements  have  unacceptable  values 

K  Consistent  acceptable  values 

I  Inconsistent  acceptable  values 

blank  Values  not  compared  (only  for  school  code  compared  to  graduation  year) 

The  flowcharts  indicate  how  the  flag  variables  for  each  pair  of  data  element  values 
should  be  coded  as  K,  I,  or  N.  (A  blank  flag  value  is  only  used  for  schools  other  than  medical 
schools  when  comparing  graduation  date  to  the  open/close  dates  of  medical  schools.) 

Results  from  the  SAS  programs  are  presented  in  Table  3-1. 
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TABLE  3-1 

RESULTS  OF  IMPLEMENTING  ALGORITHMS  TO  CHECK  THE  LOGICAL  CONSISTENCY  BETWEEN 
PAIRS  OF  DATA  ELEMENTS 


Data  Element  Pairs 

Provider  credentials  and 
physician  status 

Sanction  code  and  sanction  date 

Sanction  code  and 
sanction  length 

Sanction  date  and 
sanction  length 

Provider  credential  and 
primary  specialty  code 

Provider  credential  and 
secondary  specialty  code 

Physician  status  and 
primary  specialty  code 

Physician  status  and 
secondary  specialty  code 

Provider  credentials  and 
school  type 

Physician  status  and  school  type 

School  type  and 
primary  specialty  code 

School  type  and 
secondary  specialty  code 

Birth  year  and 
graduation  year 

Graduation  date  and  medical 
school  open/close  dates 


COMPARISON  BETWEEN  At  least  one 

ACCEPTABLE  VALUES:          data  element 
Consistent        Inconsistent     unacceptable  Total 


1,998,957 
1,997,208 

1,997,157 

1,998,731 

1,994,945 

113,552 
1,996,328 

113,716 

1,602,187 
1,625,165 

1,620,409 

87,566 

1,427,148 

976,464 


109 
1,661 

1,911 

138 

4,122 


2 

199 


199 


2,738 


535  1,884,817' 


1,999,068 
1,999,068 

1,999,068 

1,999,068 

1,999,068 


699        1,884,817  a  1,999,068 


1,999,068 


1,999,068 


23,695  373,186"  1,999,068 

716  373,187"  1,999,068 

5,473  373,186 b  1,999,068 

512  1,910,990°  1,999,068 

98,913  473,007° 

15,439  53,821 d  1,045,724 


Notes: 

aHigh  value  mostly  attributable  to  missing  values  for  secondary  specialty  code. 
''High  value  mostly  attributable  to  missing  values  for  school  code. 
cHigh  value  mostly  attributable  to  missing  values  for  both  data  elements. 
dHigh  value  mostly  attributable  to  missing  values  for  graduation  date. 
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LOGICAL  CONSISTENCY:  PHYSICIAN  STATUS  AND  PROVIDER  CREDENTIALS 


An  example  of  a  logical  inconsistency  is  when  physician  status  indicates  the  provider  is  a  physician  or 
osteopath  but  the  provider  credential  indicates  a  podiatrist. 

Logically  consistent  values  of  physician  status  (PS)  and  provider  credentials  (PC)  are: 
PS  PC 

1  MD  or  DO 

2  DDS,  DDM,  DPM,  CH,  or  OD 

If  an  inconsistency  is  found,  values  of  both  data  elements  need  to  be  checked. 
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FLOWCHART  FOR  LOGICAL  CONSISTENCY 
BETWEEN  PHYSICIAN  STATUS  AND 
PROVIDER  CREDENTIALS 


Notes: 

PS  denotes  physician  status 
PSF  denotes  physician  status  flag 

PC  denotes  provider  credentials 
PCF  denotes  provider  credentials  flag 
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/********************************************************/ 
/*  */ 
/*  -Check  consistency  between  physician  status  &  */ 
/*  provider  credentials  */ 


*/ 


/* 

/********************************^ 

DATA  S; 
SET  IN.JUL0293 

( KEEP- PHYS STAT  CREDENTL) ; 

/*  LOGICAL  CONSISTENCY:  */ 
/*  PHYSICIAN  STATUS  (PHYSSTAT)  &  PROVIDER  CREDENTIALS  (CREDENTL)  */ 

IF  CREDENTL  IN  ('MD  '.'DO  ' , ' DDM ' , ' DDS ' , ' DPM ' , ' CH  ' , 'OD  ')  THEN  HCREDNTL— ' F ' 
ELSE  IF  CREDENTL-'       '  THEN  HCREDNTL- 'M' ; 
ELSE  HCREDNTL- ' E ' ; 

IF  PHYSSTAT  IN  ('1\'2')  THEN  HPHYSTAT-'  F'  ; 
ELSE  IF  PHYSSTAT  IN  ('0','    ')  THEN  HPHYSTAT='M' ; 
ELSE  HPHYSTAT= ' E ' ; 

IF  (CREDENTL  IN  ('MD  * ,*DO  ')  &  (PHYSSTAT- ' 1 ') )  OR 

(CREDENTL  IN  ( ' DDS ' , ' DDM ' , ' DPM ' , ' CH   \'OD   ')  &  (PHYSSTAT-' 2 ') ) 
THEN  LCF-'K' ; 

ELSE  IF  HCREDNTLA— ' F '  OR  HPHYSTAT"- ' F '  THEN  LCF-'N'; 
ELSE  LCF='I' ; 
RUN; 

PROC  FREQ  ORDER-FREQ;  TABLES  HCREDNTL  HPHYSTAT  LCF; 
RUN; 


upin\deliver2\chapter3.doc\sjb 


-58- 


LOGICAL  CONSISTENCY:  SANCTION  CODE  and  SANCTION  DATE 


An  example  of  an  inconsistency  is  when  the  sanction  code  has  value  between  A  and  R  and  the  sanction 
date  field  has  a  value  of  zero.  A  zero  indicates  that  either  the  provider  is  not  sanctioned  or,  if 
sanctioned,  that  the  carrier  does  not  know  the  date. 


The  sanction  code  flag  (SCF)  has  three  acceptable  values:  M,  F,  or  U.  The  sanction  date  flag  (SDF)  has 
two  acceptable  values:  M  or  F. 


Logically  consistent  values  of  SCF  and  SDF  are: 
SDF  SCF 


M  M 
F  ForU 


If  an  inconsistency  is  found,  values  of  both  data  elements  and  sanction  length  need  to  be  checked. 
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FLOWCHART  FOR  THE  LOGICAL  CONSISTENCY 
BETWEEN  SANCTION  CODE  AND  SANCTION  DATE 


Notes: 


SCF  denotes  sanction  code  flag 
SDF  denotes  sanction  date  flag 


/*****************************************^ 

/*  */ 

/*  Checking  logical  consistency  between  sanction  code  */ 
/*  &  sanction  date  */ 

/*  */ 
/********************************************************/ 

DATA  S(KEEP-LCFS) ; 
SET  IN.JUL0293 

(KEEP-  SANC2  SANC2DAT) ; 

/*  LOGICAL  CONSISTENCY: 

/*  SANCTION  CODE  (SANC2)  &  SANCTION  DATE  (SANC2DAT)  */ 


/*  SETTING  SANCTION  CODE  (SANC2)  */ 

IF  'A'<=SANC2<='R'  THEN  HSANCS='F'; 
ELSE  IF  SANC2-'    '  THEN  HSANCS='M'; 
ELSE  IF  SANC2='U'  THEN  HSANCS='U'; 
ELSE  HSANCS='E' ; 

/*  SETTING  EFFECTIVE  DATE  OF  SANCTION  (SANC2DAT)  */ 

IF  SANC2DAT*= .  THEN  DO; 

SANC2MO  =  SUBSTR(SANC2DAT,9,2) ; 

SANC2YR  =  SUBSTR(SANC2DAT,11,2) ; 
END; 

IF  ( '66'<=SANC2YR<='93' )  &  ('   1 ' <=SANC2MO<= ' 12 ' )  &  SANC2MOA= ' 00 ' 

THEN  HSANCDTS= ' F ' ; 
ELSE  IF  SANC2DAT  IN  (0,.)  THEN  HSANCDTS= ' M ' ; 
ELSE  HSANCDTS-'E' ; 

IF  (HSANCS='M'   &  HSANCDTS= ' M ' )  OR 

((HSANCS  IN  CF'.'U*))  &  (HSANCDTS= '  F '  )  )  THEN  LCFS='K'; 
ELSE  IF  HSANCS-'E'  OR  HSANCDTS= ' E '  THEN  LCFS-'N' ; 
ELSE  LCFS-'I" ; 

OUTPUT  S; 
RUN; 

PROC  FREQ  DATA-S  ORDER=FREQ ;  TABLES  LCFS ; 

TITLE1   '****  SETTING  ****'; 
RUN; 
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LOGICAL  CONSISTENCY:  SANCTION  CODE  and  SANCTION  LENGTH 


An  example  of  an  inconsistency  is  when  the  sanction  code  has  value  between  A  and  R  and  the  sanction 
length  field  has  a  value  of  zero.  A  zero  indicates  that  either  the  provider  is  not  sanctioned  or,  if 
sanctioned,  that  the  carrier  does  not  know  how  many  years  the  sanction  was  to  be  in  effect. 


The  sanction  code  flag  (SCF)  has  three  acceptable  values:  M,  F,  or  U.  The  sanction  length  flag  (SLF)  has 
two  acceptable  values:  M  or  F. 


Logically  consistent  values  of  SCF  and  SLF  are: 
SLF  SCF 
M  M 
F  ForU 


If  an  inconsistency  is  found,  values  of  both  data  elements  and  sanction  date  need  to  be  checked. 
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FLOWCHART  FOR  THE  LOGICAL  CONSISTENCY 
BETWEEN  SANCTION  CODE  AND  SANCTION  LENGTH 


SCF  denotes  sanction  code  flag 
SLF  denotes  sanction  length  flag 


/********************************************************/ 

/*  */ 

/*  Check  logical  consistency  between  sanction  code  &  */ 
/*  sanction  length  */ 

/*  */ 
/********************************************************/ 

DATA  S(KEEP=LCFS)  ; 
SET  IN.JUL0293 

(KEEP— SANC2  SANC2YRS) ; 

/*  LOGICAL  CONSISTENCY:  */ 
/*  SANCTION  CODE  (SANC2)  &  SANCTION  LENGTH  (SANC2YRS)  */ 


/*  SETTING  SANCTION  CODE  (SANC2)  */ 

IF  'A'<=SANC2<-'R'  THEN  HSANCS-'F'; 
ELSE  IF  SANC2='    '  THEN  HSANCS='M* ; 
ELSE  IF  SANC2='U'   THEN  HSANCS-'U'; 
ELSE  HSANCS='E' ; 

/*  SETTING  LENGTH  OF  SANCTION  (SANC2YRS)  */ 

IF  (1<=SANC2YRS<=13)  OR  (SANC2YRS  IN  (15,20,25,30,35,40,45,50,99)) 

THEN  HSANCYRS- ' F ' ; 
ELSE  IF  SANC2YRS  IN  (0,.)  THEN  HSANCYRS- ' M ' ; 

ELSE  IF  SANC2YRS=14  OR  ( 16<=SANC2YRS<=19)  OR  (21<=SANC2YRS<=24)  OR 

(26<=SANC2YRS<=29)  OR  ( 3K-SW! J2YRS<=34)  OR 

(36<=SANC2YRS<=39)  OR  (41<=SANC2YRS<=44)  OR 

(46<=SANC2YRS<=49)  OR  (51<=SANC2YRS<=98) 
THEN  HSANCYRS- ' D ' ; 
ELSE  HSANCYRS- ' E ' ; 

IF  (HSANCS='M'  &  HSANCYRS= ' M ' )  OR 

((HSANCS  IN  ('F'.'U'))  &  (HSANCYRS- ' F ' ) )  THEN  LCFS='K' ; 
ELSE  IF  HSANCS-' E'  OR  HSANCYRS- ' E '  THEN  LCFS='N' ; 
ELSE  LCFS='I' ; 

OUTPUT  S; 
RUN; 

PROC  FREQ  DATA-S  ORDER- FREQ ;  TABLES  LCFS; 
TITLE1   *****  SETTING  **** ' ; 

TITLE2  '****  LOG.  CONSISTENCY:  SANCTION  CODE  &  SANCTION  LENGTH  ****'; 
RUN; 
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LOGICAL  CONSISTENCY:  SANCTION  DATE  and  SANCTION  LENGTH 


An  example  of  an  inconsistency  is  when  sanction  length  is  equal  to  a  value  such  as  10  and  sanction  date 
has  a  value  of  zero.  A  zero  indicates  that  either  the  provider  is  not  sanctioned  or  that  the  carrier  does 
not  know  what  date  the  sanction  took  effect. 


The  sanction  date  flag  (SDF)  has  three  acceptable  values:  M  or  F.  The  sanction  length  flag  (SLF)  has  two 
acceptable  values:  M  or  F. 


Logically  consistent  values  of  SDF  and  SLF  are: 


SLF 


SDF 


M 


M 


F 


F 


If  an  inconsistency  is  found,  values  of  both  data  elements  and  sanction  code  need  to  be  checked. 
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FLOWCHART  FOR  THE  LOGICAL  CONSISTENCY 
BETWEEN  SANCTION  DATE  AND  SANCTION  LENGTH 


SLF  denotes  sanction  length  flag 


/********************************************************/ 

/*  */ 

/*  -Check  logical  consistency  between  sanction  date  &  */ 
/*  sanction  length  */ 

/************************************^ 

DATA  S(KEEP=LCFS)  ; 
SET  IN.JUL0293 

(KEEP-SANC2DAT  SANC2YRS) ; 

/*  LOGICAL  CONSISTENCY: 

/*  SANCTION  DATE  (SANC2DAT)  &  SANCTION  LENGTH  (SANC2YRS)  */ 
/*  SETTING  EFFECTIVE  DATE  OF  SANCTION  (SANC2DAT)  */ 

IF  SANC2DATA-.  THEN  DO; 

SANC2MO  =  SUBSTR(SANC2DAT,9,2) ; 

SANC2YR  -  SUBSTR(SANC2DAT,11,2) ; 
END; 

IF  ( '66'<=SANC2YR<='93' )  &  ('   1 ' <=SANC2MO<= ' 12 ' )  &  SANC2MOA= ' 00 ' 

THEN  HSANCDTS= ' F ' ; 
ELSE  IF  SANC2DAT  IN  (0,.)  THEN  HSANCDTS= ' M ' ; 
ELSE  HSANCDTS= ' E ' ; 


/*  SETTING  LENGTH  OF  SANCTION  (SANC2YRS)  */ 

IF  (1<=SANC2YRS<=13)  OR  (SANC2YRS  IN  (15,20,25,30,35,40,45,50,99)) 

THEN  HSANCYRS= ' F ' ; 
ELSE  IF  SANC2YRS  IN  (0,.)  THEN  HSANCYRS='M' ; 

ELSE  IF  SANC2YRS=14  OR  ( 16<=SANC2YRS<=19 )  OR  (21<=SANC2YRS<=24)  OR 
(26<=SANC2YRS<=29)  OR  ( 31<=SANC2YRS<=34)  OR 
(36<=SANC2YRS<=39)  OR  (41<=SANC2YRS<=44)  OR 
(46<=SANC2YRS<=49)  OR  (51<=SANC2YRS<=98) 
THEN  HSANCYRS= ' D ' ; 

ELSE  HSANCYRS= ' E ' ; 

IF  (HSANCDTS-'M'  &  HSANCYRS= ' M ' )  OR 

(HSANCDTS= ' F'  &  HSANCYRS= ' F ' )  THEN  LCFS='K'; 
ELSE  IF  HSANCDTS= ' E '  OR  HSANCYRS= ' E '  THEN  LCFS='N'; 
ELSE  LCFS='I' ; 


OUTPUT  S; 
RUN; 

FROC  FREQ  DATA=S  ORDER=FREQ;  TABLES  LCFS ; 
TITLE1   '****  SETTING  ****'; 

TITLE2  '****  LOG.  CONSISTENCY:  SANCTION  DATE  &  SANCTION  LENGTH 
RUN; 
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LOGICAL  CONSISTENCY:  PROVIDER  CREDENTIALS  and  SPECIALTY  CODE 


An  example  of  an  inconsistency  is  when  the  specialty  code  indicates  a  physician  specialty  while  the 
provider  credential  indicates  a  chiropractor. 

Provider  credentials  (PC): 

a. 

PC  has  7  acceptable  values:  MD,  DO,  DDM,  DDS,  CH,  DPM,  OD 

b. 

PC  flag  (PCF)  has  1  acceptable  value:  F 

Specialty  code  flag  (SPF)  has  3  acceptable  values:  F,  S,  or  U 

Specialty  code  needs  to  be  re-coded  as  SPECS  (see  Exhibit  3-1).  Logically  consistent  values  of  PC  and 
SPECS  are  shown  in  Exhibit  3-2. 

Notes: 

(1) 

A  value  of  10  was  assigned  for  SPECS  to  catch  any  erroneous  specialty  code  that  was 
not  picked  by  the  variable  integrity  screens. 

(2) 

Because  the  secondary  specialty  code  is  not  a  required  data  element,  it  may  be  desirable 
to  exclude  from  the  comparisons  cases  in  which  the  secondary  specialty  code  is  equal  to 
zero  (missing)  or  assign  a  blank  value  to  the  flag  variable. 

(3) 

For  the  purposes  of  the  logical  consistency  tests,  code  S  is  acceptable  but  it  is  actually  an 
obsolete  code  that  should  be  replaced  (see  the  notes  to  the  specifications  for  specialty 
code  in  Chapter  2). 

(4) 

For  the  purposes  of  the  logical  consistency  tests,  the  retired  osteopathy  codes  are 
included  in  code  F.  The  flowchart  does  not  make  reference  to  such  instances  but  the 
accompanying  SAS  program  includes  the  appropriate  coding. 

(5) 

The  data  format  for  specialty  code  is  different  for  the  carrier  record  and  the  Registry  file 
(see  Chapter  1).  Since  the  Registry  version  is  alphanumeric,  the  accompanying  SAS 
program  includes  some  logic  to  recode  blank  fields  as  missing  values  and  to  recode  the 
value  'b0'  as  zero  (the  lower  case  b  indicates  a  blank). 

If  an  inconsistency  is  found,  check  the  values  of  physician  status  and  the  school  code  as  well  as  provider 
credentials  and  specialty  code. 
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EXHIBIT  3-1 
RECODE  OF  SPECIALTY  CODE 


SPECS 

SPECIALTY  CODE 

PROVIDER  TYPE 

1 

01,  02,  03,  04,  05,  06, 07,  08, 10, 11, 13, 14, 
16, 18,  20,  22,  24,  25,  26,  28,  29,  30,  33,  34, 

'Xt.  on  ')&        AT\  AA  AA  f\f\  7fi  7ft  77  78 
JO,  Ol ,  JO,  J",  frU,  tir±/  to,  DO,  /yJ,  /V,  II,  i*J, 

79,  81, 82, 83,  84,  86, 90, 91,  92,  93, 94 

Medical  Doctor 

2 

09, 11, 15, 17 ,21,  23,  27,  31,  32 

Osteopath 

3 

19 

Dentist 

4 

85 

Dentist 

5 

35 

Chiropractor 

6 

48 

Podiatrist 

7 

41 

Optometrist 

8 

49 

Miscellaneous 

9 

99 

Unknown 

10 

all  other  values 

Non-UPIN  Specialties 
and  non-assigned 
specialty  codes 
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EXHIBIT  3-2 

LOGICALLY  CONSISTENT  VALUES  OF  PROVIDER  CREDENTIALS  (PC)  and 


PC 

MD 
DO 

DDM  or  DDS 

CH 

DPM 

OD 


SPECS 

1,  8,  or  9 

1,  2, 8,  or  9 

3  or  4 

5 

6 

7 


upin\  deli  ver2\  chapter3.doc\  sjb 


-70- 


FLOWCHART  FOR  LOGICAL  CONSISTENCY 
OF  PROVIDER  CREDENTIAL  AND  SPECIALTY  CODE 


NO 


Create  SPECS  from  SPEC 
(See  Exhibit  3-1) 


Notes: 

PC  denotes  provider  credential 
PCF  denotes  provider  credential  flag 
SPEC  denotes  specialty  code 
SPF  denotes  specialty  code  flag 


/********************************** 

/*  */ 

/*    Check  logical  consistency  between  provider  credentials  */ 

/*  &  specialty  codes  */ 


/***********************************^ 


DATA  S; 
SET  IN.JUL0293 

(KEEP-SPEC1  SPEC2  CREDENTL) ; 

/*  LOGICAL  CONSISTENCY:  */ 
/*  PROVIDER  CREDENTIALS  (CREDENTL)  &  SPECIALTY  C0DE(SPEC1 , SPEC2)  */ 

IF  CREDENTL  IN  ('MD  \'DO  ' , ' DDM 1 , ' DDS ' , ' DPM ' , ' CH  * , 'OD  ')  THEN  HCREDNTL= ' F ' ; 
ELSE  IF  CREDENTL-'       '  THEN  HCREDNTL= ' M ' ; 
ELSE  HCREDNTL- ' E ' ; 

IF  ( '01'<=SPEC1<='41' )  OR  (SPEC1  IN  ( * 44 ' , ' 46 ' , ' 48 ' , ' 66 ' , ' 70 ' ) )  OR 
( '76'<=SPEC1<='79' )  OR  ( ' 81 ' <=SPEC1<= ' 86 ' )  OR  ( *  90 ' <=SPEC1<= ' 94 ' ) 
THEN  HSPEC1='F' ; 

ELSE  IF  SPEC1  IN  ('     ','  0 ' , ' 00 ' )  THEN  HSPEC1='M'; 

ELSE  IF  SPEC1='99'  THEN  HSPEC1='U'; 

ELSE  IF  SPEC1='49'  THEN  HSPEC1='S'; 

ELSE  HSPEC1-'E' ; 


IF  SPEC1-' 


THEN  SPECS1=. ; 


ELSE 

IF 

SPEC1='   0'  THEN  SPECS1=0; 

ELSE 

IF 

SPEC1  IN 

('01' , '02' , '03' , '04' , '05' 

•06' 

'07' 

•08' 

'10'  , 

'11'  , 

'13' , '14' , 

■16' , '18' , '20' , '22' , '24' 

•25' 

'26' 

'28' 

'29'  , 

'30'  , 

'33'  , 

'34' , '36' , '37' , '38' , '39' 

•40' 

'44' 

'46' 

•66'  , 

'70' , '76' , '77' , '78' , '79' 

'81' 

'82' 

'83' 

•84'  , 

'86'  , 

'90'  , 

'91' , '92* , '93' , '94' ) 

THEN  SPECS1=1; 

ELSE 

IF 

SPEC1  IN 

('09' , '12' , '15' , '17' , '21' 

,  '23' 

•27' 

'31' 

•32') 

THEN 

SPECS1=2 ; 

ELSE  IF  SPEC1-'19'  THEN  SPECS1=3 
ELSE  IF  SPEC1='85'  THEN  SPECS1=4 
ELSE  IF  SPEC1='35'  THEN  SPECS1=5 
ELSE  IF  SPEC1='48'  THEN  SPECS1=6 
ELSE  IF  SPEC1='41'  THEN  SPECS1=7 
ELSE  IF  SPECl-'49'  THEN  SPECS1-8 
ELSE  IF  SPECl-'99'  THEN  SPECS1=9 
ELSE  SPECS1=10; 

IF  ( '01'<=SPEC2<='41' )  OR  (SPEC2  IN  ( ' 44 ' , ' 46 ' , ' 48 ' , ' 66 ' , ' 70 ' ) )  OR 
('76'<-SPEC2<-'79')  OR  ( ' 81 ' <=SPEC2<-' 86 ' )  OR  ( ' 90 '<-SPEC2<-' 94 ' ) 
THEN  HSPEC2='F' ; 

ELSE  IF  SPEC2  IN  ( '     ','  O'.'OO')  THEN  HSPEC2='M' ; 
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ELSE  IF  SPEC2-'99'  THEN  HSPEC2='U' ; 
ELSE  IF  SPEC2-'49'  THEN  HSPEC2='S'; 
ELSE  HSPEC2-'E' ; 


IF  SPEC2-'     '  THEN  SPECS2-. ; 
ELSE  IF  SPEC2-'  0'  THEN  SPECS2-0; 


SPEC2  IN 

('01' , 

'02' , '03' 

'04'  , 

'05' 

•06' 

'07' 

•08' 

•10' 

'11' 

•13' 

•16'  , 

•18' , '20' 

'22'  , 

■24' 

•25' 

•26' 

•28' 

•29' 

•30' 

•33' 

•34' 

•36' , '37' 

•38'  , 

•39' 

•40' 

•44' 

•46' 

•66' 

•70'  , 

•76' , '77' 

'78'  , 

•79' 

•81' 

'82' 

•83' 

•84' 

'86' 

'90' 

'91' 

•92' , '93' 

•94') 

THEN 

SPECS2-1; 

SPEC2  IN 

'14' 


('09' , ' 
ELSE  IF  SPEC2-*19* 
ELSE  IF  SPEC2-'851 
ELSE  IF  SPEC2-'35* 
ELSE  IF  SPEC2='48' 
ELSE  IF  SPEC2='41' 
ELSE  IF  SPEC2='49* 
ELSE  IF  SPEC2='99' 
ELSE  SPECS2=10; 


12' , '15' , '17' , '21' 
THEN  SPECS2-3; 
THEN  SPECS2-4 
THEN  SPECS2-5; 
THEN  SPECS2-6; 
THEN  SPECS2-7 
THEN  SPECS2-8; 
THEN  SPECS2-9; 


'23' , '27' , '31' , '32')  THEN  SPECS2=2; 


IF 


( 


( CREDENTL= ' MD 
(CREDENTL= ' DO 
( (CREDENTL  IN 
(CREDENTL='CH  ' 
( CREDENTL= ' DPM ' 
(CREDENTL='OD  ' 
ELSE  IF  HCREDNTLA= 
ELSE  HLCF1-'I' ; 
IF  ( CREDENTL- 'MD  ' 
( CREDENTL= ' DO  ' 
((CREDENTL  IN 
( CREDENTL- ' CH 
(CREDENTL- 'DPM 
( CREDENTL- 'OD 
ELSE  IF  HCREDNTL*- ' F ' 
ELSE  HLCF2='I' ; 
RUN; 


&  (SPECS1  IN  (1,8,9)))  OR 
&  (SPECS1  IN  (1,2,8,9)))  OR 
DDM ' , ' DDS ' ) )  &  (SPECS1  IN  (3,4)))  OR 
&  SPECS1-5)  OR 
&  SPECS1-6)  OR 
6c  SPECS1-7)  THEN  HLCF1='K'; 
F*  OR  (HSPEC1  NOT  IN  ('F'.'S 


•U' ))  THEN  HLCF1='N' 


( 


6c  (SPECS2  IN  (1,8,9)))  OR 
6c  (SPECS2  IN  (1,2,8,9)))  OR 
DDM', 'DDS'))  6c  (SPECS2  IN  (3,4)))  OR 
6c  SPECS2-5)  OR 
6c  SPECS2-6)  OR 
6.  SPECS2-7)  THEN  HLCF2='K'; 

OR  (HSPEC2  NOT  IN  ( ' F' , ' S ' , 'U' ) ) 


THEN  HLCF2='N' 


PROC  FREQ  ORDER- FREQ ;  TABLES  HLCF1  HLCF2 ; 
TITLE1  *****  SETTING  ****'; 

TITLE2   '****  LOG .   CONSISTENCY:   PROVIDER  CREDENTIALS  6c  SPECIALTY  CODE  ****' 
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LOGICAL  CONSISTENCY:  PHYSICIAN  STATUS  and  SPECIALTY  CODE 


An  example  of  an  inconsistency  is  when  physician  status  has  a  value  of  2  and  the  specialty  code 
indicates  an  osteopathic  specialty. 

Physician  status  (PS): 

a. 

PS  has  two  acceptable  values:  1  or  2 

b. 

PS  flag  (PSF)  has  one  acceptable  value:  F 

Specialty  code  flag  (SPF)  has  3  acceptable  values:  F,  S,  or  U 

Specialty  code  needs  to  be  re-coded  as  SPECS  (see  Exhibit  3-1).  Logically  consistent  values  of  PS  and 
SPECS  are  shown  in  Exhibit  3-3. 

Notes: 

(1) 

A  value  of  10  was  assigned  for  SPECS  to  catch  any  erroneous  specialty  code  that  was 
not  picked  by  the  variable  integrity  screens. 

(2) 

Because  the  secondary  specialty  code  is  not  a  required  data  element,  it  may  be  desirable 
to  exclude  from  the  comparisons  cases  in  which  the  secondary  specialty  code  is  equal  to 
zero  (missing)  or  assign  a  blank  value  to  the  flag  variable. 

(3) 

For  the  purposes  of  the  logical  consistency  tests,  code  S  is  acceptable  but  it  is  actually  an 
obsolete  code  that  should  be  replaced  (see  the  notes  to  the  specifications  for  specialty 
code  in  Chapter  2). 

(4) 

For  the  purposes  of  the  logical  consistency  tests,  the  retired  osteopathy  codes  are 
included  in  code  F.  The  flowchart  does  not  make  reference  to  such  instances  but  the 
accompanying  SAS  program  includes  the  appropriate  coding. 

(5) 

The  data  format  for  specialty  code  is  different  for  the  carrier  record  and  the  Registry  file 
(see  Chapter  1).  Since  the  Registry  version  is  alphanumeric,  the  accompanying  SAS 
program  includes  some  logic  to  recode  blank  fields  as  missing  values  and  to  recode  the 
value  'b0'  as  zero  (the  lower  case  b  indicates  a  blank). 

If  an  inconsistency  is  found,  check  the  values  of  provider  credentials  and  the  school  code  as  well  as 
physician  status  and  specialty  code. 
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EXHIBIT  3-3 

LOGICALLY  CONSISTENT  VALUES  OF  PHYSICIAN  STATUS  (PS)  AND  SPECS 

PS  SPECS 

1  1,2, 8,  or  9 

2  3, 4,  5,  6,  or  7 
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FLOWCHART  FOR  LOGICAL  CONSISTENCY 
BETWEEN  PHYSICIAN  STATUS  AND  SPECIALTY  CODE 


Create  SPECS  from  SPEC 
(See  Exhibit  3-1) 


Flag  =  K 


Notes: 

PS  denotes  physician  status 
PSF  denotes  physician  status  flag 
SPEC  denotes  specialty  code 
SPF  denotes  specialty  code  flag 


/*  */ 

/*      Check  consistency  between  physician  status  &  */ 

/*  specialty  codes  */ 

/*  */ 
/*************************** 

DATA  S; 
SET  IN.JUL0293 

(KEEP-SPEC1  SPEC2  PHYSSTAT) ; 

/*  LOGICAL  CONSISTENCY:  */ 
/*  PHYSICIAN  STATUS  (PHYSSTAT)  &  SPECIALTY  CODE  (SPEC1 , SPEC2)  */ 

IF  PHYSSTAT  IN  ( '  1 '  ,  '  2  '  )  THEN  HPHYSTAT- ' F ' ; 
ELSE  IF  PHYSSTAT  IN  ('0','    ')  THEN  HPHYSTAT='M' ; 
ELSE  HPHYSTAT= ' E ' ; 

IF  (*01'<-SPEC1<-'41*)  OR  (SPEC1  IN  ( ' 44 * , ' 46 ' , ' 48 ' , ' 66 ' , ' 70 ' ) )  OR 
(  '76'<=SPEC1<='79' )  OR  ( '81'<=SPEC1<='86' )  OR  ( '  90 ' <=SPEC1<= '  94 * ) 
THEN  HSPEC1='F' ; 

ELSE  IF  SPEC1  IN  ('      ','   O'.'OO')  THEN  HSPEC1='M'; 

ELSE  IF  SPEC1='99'  THEN  HSPEC1='U'; 

ELSE  IF  CPEC1='49'  THEN  HSPEC1='S'; 

ELSE  HSPEC1='E' ; 

IF  SPEC1='     '  THEN  SPECS1=.; 
ELSE  IF  SPEC1='  0'  THEN  SPECS1=0; 


SPEC1  IN 

('01' 

'02' 

•03' 

'04'  , 

•05' 

'06' 

•07' 

•08' 

'10'  , 

•U', 

'13' , '14 

'16' 

'18' 

'20' 

'22'  , 

'24' 

'25' 

'26' 

•28' 

•29'  , 

'30'  , 

'33'  , 

'34' 

•36' 

'37' 

'38'  , 

•39' 

'40' 

'44' 

'46' 

'66'  , 

•70' 

•76' 

'77' 

'78'  , 

•79' 

'81' 

'82' 

•83' 

'84'  , 

'86'  , 

'90'  , 

'91' 

•92' 

'93' 

'94' ) 

THEN 

SPECS1-1; 

SPEC1  IN 

('09' 

•12' 

•15' 

'17'  , 

•21' 

•23' 

'27' 

■31' 

'32') 

THEN 

SPECS1= 

ELSE  IF  SPEC1='19' 
ELSE  IF  SPEC1='85' 
ELSE  IF  SPEC1='35' 
ELSE  IF  SPEC1='48' 
ELSE  IF  SPEC1='41' 
ELSE  IF  SPEC1='49' 
ELSE  IF  SPEC1='99' 
ELSE  SPECS1=10; 


THEN  SPECS1-3 
THEN  SPECS1=4 
THEN  SPECS1=5 
THEN  SPECS1=6 
THEN  SPECS1=7 
THEN  SPECS1=8 
THEN  SPECS1=9 


IF  ( '01'<=SPEC2<='41' )  OR  (SPEC2  IN  ( ' 44 ' , ' 46 ' , ' 48 ' , ' 66 ' , ' 70 * ) )  OR 
( '76'<=SPEC2<='79' )  OR  ( ' 81 ' <=SPEC2<= ' 86 ' )  OR  ( ' 90 '<=SPEC2<= ' 94 ' ) 
THEN  HSPEC2='F' ; 

ELSE  IF  SPEC2  IN  ( '      ','   O'.'OO')  THEN  HSPEC2='M'; 
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ELSE  IF  SPEC2-'99'  THEN  HSPEC2='U' ; 
ELSE  IF  SPEC2-*49'  THEN  HSPEC2='S'; 
ELSE  HSPEC2-'E' ; 


IF  SPEC2-'     '  THEN  SPECS2=. ; 
ELSE  IF  SPEC2-'  0'  THEN  SPECS2=0; 


SPEC2  IN 

('01' 

'02' , '03' 

'04'  , 

•05' 

•06' 

•07' 

•08' 

•10' 

•11' 

•13' 

'16' 

•18' , '20' 

•22'  , 

'24' 

•25' 

*26' 

•28' 

•29' 

'30' 

'33' 

'34' 

•36* , '37' 

'38'  , 

•39' 

•40' 

•44' 

•46' 

'66' 

'70' 

*76' , '77' 

•78'  , 

•79' 

'81' 

•82' 

•83' 

•84' 

•86' 

'90' 

•91' 

•92' , '93' 

•94- ) 

THEN 

SPECS2-1; 

14'  , 


ELSE 

IF 

SPEC2  IN 

('09' , •12' , '15' , '17' 

I 

ELSE 

IF 

SPEC2='19' 

THEN 

SPECS2= 

3 

ELSE 

IF 

SPEC2='85' 

THEN 

SPECS2= 

U 

ELSE 

IF 

SPEC2=' 35' 

THEN 

SPECS2= 

5 

ELSE 

IF 

SPEC2-'48' 

THEN 

SPECS2= 

6 

ELSE 

IF 

SPEC2='41' 

THEN 

SPECS2= 

7 

ELSE 

IF 

SPEC2='49' 

THEN 

SPECS2= 

8 

ELSE 

IF 

SPEC2='99' 

THEN 

SPECS2= 

9 

ELSE 

SPECS2=10; 

21  * , ' 23  * , ' 27 ' , ' 31 ' , ' 32 ' )  THEN  SPECS2-2 ; 


IF  (PHYSSTAT='l'  &  (SPECS1  IN  (1,2,8,9)))  OR 

(PHYSSTAT='2'  &  (SPECS1  IN  (3,4,5,6,7)))  THEN  HLCF1='K' ; 
ELSE  IF  HPHYSTAT*= ' F '  OR  (HSPEC1  NOT  IN  ( ' F ' , ' S ' , ' U ' ) )  THEN  HLCF1='N'; 
ELSE  HLCF1-'I' ; 

IF  (PHYSSTAT='l'  &  (SPECS2  IN  (1,2,8,9)))  OR 

(PHYSSTAT='2'  &  (SPECS2  IN  (3,4,5,6,7)))  THEN  HLCF2='K' ; 
ELSE  IF  HPHYSTAT"= ' F '  OR  (HSPEC2  NOT  IN  ( * F ' , ' S  '  , ' U ' ) )  THEN  HLCF2='N'; 
ELSE  HLCF2='I' ; 
RUN; 


PROC  FREQ  ORDER=FREQ;  TABLES  HLCF1  HLCF2 ; 
TITLE1   '****  SETTING  ****'; 

TITLE2  '****  LOGICAL  CONSISTENCY:  PHYSICIAN  STATUS  &  SPECIALTY  CODE  ****' 
RUN; 
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LOGICAL  CONSISTENCY:  PROVIDER  CREDENTIALS  and  SCHOOL  CODE 


An  example  of  an  inconsistency  is  when  provider  credentials  indicate  a  physician  and  the  school  type 
indicates  that  the  provider  graduated  from  a  podia  trie  school. 


Provider  credentials  (PC): 

a.  PC  has  seven  acceptable  values:  MD,  DO,  DDM,  DDS,  CH,  DPM,  OD 

b.  PC  flag  (PCF)  has  one  acceptable  value:  F 

School  code  flag  (SF)  has  two  acceptable  values:  F  or  R 


For  school  codes  with  SF  =  F,  the  school  codes  can  be  collapsed  (MSCHTYPE)  as  indicated  in  Exhibit  3^. 
Because  of  their  values,  osteopathic  school  codes  should  be  recoded  before  the  medical  school  codes. 
Similarly,  depending  on  your  computer  system's  collating  sequence,  podiatric  school  codes  may  need  to 
be  recoded  before  the  medical  school  codes. 

Logically  consistent  values  of  PC  and  school  recode  (MSCHTYPE)  are  found  in  Exhibit  3-5. 


If  an  inconsistency  is  found,  check  the  values  of  physician  status  and  specialty  code  as  well  as  provider 
credentials  and  the  school  code. 
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EXHIBIT  3-4 
SCHOOL  RECODES 


MSCHTYPE 

School  Type 

School  Codes 

1 

Medical 

< 10000 

2 

Dental 

10000-29999 

3 

Podiatry 

30000-39999,  OOOXA,  000XB,  000XC,  000XD,  000XE, 
000XF,  000XG,  OOOXH,  000X1,  000XJ,  000XK 

4 

Optometrist 

40000-49999 

5 

Chiropractic 

50000-59999 

6 

Foreign 

99999 

7 

Osteopathic 

00576,  01175,  01675,  01875,  02275,  02576,  02878,  02879, 
03375,  03575,  03875,  03979,  04177,  04878,  05575 

8 

bad  code 

any  other  code 

Note:  The  ranges  are  used  to  indicate  listed  codes  (Exhibit  2-1)  within  the  range.  Therefore,  school  code  integrity  checks  need  to  be 
performed  before  these  recodes  are  utilized. 
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EXHIBIT  3-5 


LOGICALLY  CONSISTENT  VALUES  OF  PROVIDER  CREDENTIALS  AND  SCHOOL 

RECODE  (MSCHTYPE) 


MSCHTYPE  PC 

1  MD 

2  DDM  or  DDS 

3  DPM 

4  OD 

5  CH 

6  MD,  DDM,  DDS,  CH,  or  OD 

7  DO 
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FLOWCHART  FOR  THE  LOGICAL  CONSISTENCY 
BETWEEN  PROVIDER  CREDENTIALS  AND  SCHOOL  TYPE 


SF 
ForR 


No 


Flag  =  N 


T 


Yes 


Cs,oO 


Recode  school  codes  per  Exhibit  3-4 


Flag  = 

J 

r 

Stop 


Flag  =  I 


I 


(^Stop^) 


Notes: 


SF  denotes  school  flag 
PC  denotes  provider  credentials 
PCF  denotes  provider  credentials  flag 


/******************************^^ 

/*  */ 

/*    Check  logical  consistency  between  provider  credentials  */ 

/*  &  school  type  */ 

/*  */ 
/**********************************^ 

DATA  S; 
SET  IN.JUL0293 

(KEEP=SETMDSCH  CREDENTL) ; 

/*  LOGICAL  CONSISTENCY:  */ 
/*  PROVIDER  CREDENTIALS  (CREDENTL)  &  SCHOOL  CODE  (SETMDSCH)  */ 

IF  CREDENTL  IN  ('MD  ' , *DO  ' , ' DDM ' , ' DDS ' , ' DPM ' , ' CH  ' , '0D  ')  THEN  HCREDNTL- ' 
ELSE  IF  CREDENTL= '       '  THEN  HCREDNTL= ' M ' ; 
ELSE  HCREDNTL= ' E ' ; 


( '00102 ' 

, ' 00104 ' 

, ' 00106 ' 

,  OOJOl 

,  UU^Ul 

'00501' , 

' 00502 ' , 

' 00504 ' , 

00505  , 

UUjUd  , 

UUDU  / 

'00508' , 

'00509 ' , 

' 00511 ' , 

00512  , 

i  r\f\ r  1  t  • 

UUD  14 

'00515'  , 

' 00516 ' , 

' 00517 ' , 

'  00518 '  , 

uu_>iy  , 

' nn ^  7 c  * 

UUj  /  D 

'00702 ' , 

'00705 ' , 

' 00801 ' , 

'  00802  , 

010U1  , 

UluuZ 

'01003 ' , 

'01102 '  , 

'01103 ' , 

'  01104 ' , 

Oil ID  , 

UlZUl 

'01205 ' , 

'01209 ' , 

' 01211 ' , 

' 01212 ' , 

l  A1  01  O  i 

Ulzlo  , 

U 1Z  1 7 

' 01221 '  , 

'  01222  , 

i  ai  /  ni  » 
01401  , 

'  ^1  cm  » 
UloUl  , 

UlDUZ  , 

'01605' , 

'01606' 

•01608* , 

•01609' , 

'01610' , 

•01611* 

'01613'  , 

•01614' 

•01615' 

'01616' , 

'01617' , 

•01618* 

•01619'  , 

•01622' 

'01623' 

•01642' 

•01643' , 

'01644' 

'01645' , 

'01675' 

•01705' 

•01708' , 

'01709' , 

•01717' 

•01718' , 

'01720' 

'01801' 

•01803' 

'01804' 

'01806' 

'01808' , 

•01810' 

'01875' 

•01902' 

•01903' 

'01904' 

•01907' , 

•02001' 

•02002' 

'02004' 

•02005' 

•02007' 

•02008' , 

•02009' 

'02011' 

•02012' 

'02101' 

'02104' 

•02105'  , 

•02106' 

•02201' 

'02275' 

•02301' 

•02303' 

•02304' , 

•02305' 

•02306' 

'02307' 

'02308' 

'02309' 

•02311' , 

•02312' 

'02401' 

•02405' 

'02406' 

•02407* 

•02415' , 

'02416' 

•02501' 

•02505* 

•02507' 

•02508' 

•02512'  , 

'02576' 

'02604' 

•02605' 

'02607' 

•02608' 

'02701' , 

•02702' 

•02801' 

•02802' 

•02803' 

•02805' 

•02807' , 

'02808' 

•02810' 

•02820' 

'02822' 

•02826' 

•02828' , 

•02830' 

•02833' 

•02834' 

'02835' 

•02843' 

•02844' , 

'02845' 

•02846' 

, ■02878' 

, '02879' 

, '03004' 

•03005* , 

•03006' 

'03007' 

, '03101' 

, '03201' 

,  '03305' 

•03306'  , 

•03375' 

, '03401' 

, '03501' 

, '03503' 

, '03506' 

'03508' , 

•03509' 

, '03510' 

, '03511' 

, '03513' 

, '03515' 

'03519'  , 

•03520' 

, '03543' 

, '03545' 

, '03546* 

, '03547' 

'03548' , 

•03575' 

, '03601' 

, '03603' 

, '03604' 

, '03605' 

•03607'  , 

•03608' 

, '03701' 

, '03801' 

, '03802' 

,  '03803' 

'03806'  , 

'03808' 

, '03809' 

, '03811' 

, '03819' 

, '03823' 
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•    A  n  M  A  r  t 

'03825 

03826 

,  03840  , 

0  Jo41 

' 03845 ' 

03875 

i  mom  » 

,  o^yoi  , 

\Jjy\Jj 

i A^Q7Q ' 
U  j  y  1  7 

04002 

04101 

1  A7.  1  AO  » 

,    U41Uz  , 

»  f\/.  1  H7  ' 
1U  / 

'  AA.1  AQ  ' 

U*4  111 

'  04112  * 

' 04113 ' 

,    04114  , 

1  r\i.  1  "7  "7  » 

U41  /  / 

I  A  A  0  A1  ' 

04203 

l A/  OA/  » 

04^04 

i  c\/.  *3ni  • 

UHUV  1 

' 04701 ' 

' 04705 ' 

,   04 /0d  , 

»  f\/,  ~7C\~}  * 

*  AA  7  Aft  • 

'04710' 

'  04711 ' 

,  04713  , 

U4  / 1** 

»  AA  71^' 
04  /ID 

'04802' 

' 04803 

,  04804  , 

04000 

' HA ftfi7  ' 
U40U  / 

'04812' 

'04813' 

, ' 04814 ' , 

' 04815 1 

>  A  /  O  1  £  » 

04olo 

'04901' 

'05002 ' 

, ' 05101 ' , 

i  A  c  1  A  /  t 

05104 

ODlOo 

UD 1U  / 

'05404' 

*  05415 ' 

, ' 05501 '  , 

»  A  C  C  A 1  » 

0550z 

1 ACC1C 1 
Uj  J  /  J 

' 05603 ' 

' 05605 ' 

,  05606  , 

OOOXr 

»  AAAVP  » 

OOOMj 

'000XH' 

' 000X1 ' 

,   30000  , 

t  T  A  1  A  A  ' 

30100 

» 1AOAA • 

jo^ou 

30400 

30500 

,   30600  , 

»  /.  AAAA  » 
40000 

»  A  AA1 A  1 
40U1U 

40030 

■  /  a  a  /  A  » 

40040 

1  /  a  A  c  A  » 
,    400D0  , 

I  /.  AA£  A  » 

4000U 

>  a  AA7A 1 

'  A.onRn ' 

40090 

1 AA1AA1 

40100 

,    4011U  , 

i  /,  A 1  OA' 

'  AA1  ' 

' 401 40 ' 

»  A  A  1  C  A  » 

9  A/.  1  C  A  < 
041o0 

i  A  A1  7  A  ' 
,    4U 1 /U  , 

>  ^aaaa  ■ 

JUUUU 

' 50020 ' 

•50030* 

•50040' 

, ' 50050 ' , 

»  c  A  A  C  A  ' 

50060 

»  Q AAA  R  l 
DOOo  D 

• ^AA7A 1 

'50080' 

'50090' 

, '50100* , 

•50110' 

'50120' 

•50130' 

•50140' 

•50150' 

, '50160' , 

'50170' 

•50180' 

'50190' 

'50200' 

•50210' 

, '50220' , 

•50230' 

'50240' 

•50250' 

•50260' 

'50270' 

, '50280'  , 

'50290' 

'50300' 

•50310' 

'99999' 

•10000' 

, '20000' ) 

THEN  HMEDSCHS= ' 

F'  ; 

ELSE  IF  SETMDSCHA=RIGHT(SETMDSCH)  THEN  HMEDSCHS= ' J ' ; 

ELSE  IF  SETMDSCH  IN  ('000XA' , '000XB' , ' 000XC ' , '000XD' , 'OO0XE' , 

'000XJ' , '000XK' )  THEN  HMEDSCHS= ' R ' ; 
ELSE  IF  SETMDSCH= '  '  THEN  HMEDSCHS='M' ; 

ELSE  HMEDSCHS= ' E ' ; 
IF  HMEDSCHS  IN  ('F'.'R')  THEN  DO; 

IF  SETMDSCH  IN  (' 00576 ',' 01175 ',' 01675 ',' 01875 ',' 02275 ',' 02576 ' , 
•02878' , '02879' , '03375' , '03575' , '03875' , '03979' 
•04177' , '04878' , '05575' )  THEN  MSCHTYPE=7 ; 
ELSE  IF  (' 30000 ' <=SETMDSCH<= ' 39999')  ] 

(SETMDSCH  IN  ( ' 000XA ' , ' 000XB ' , ' 000XC ' , ' 000XD ' , ' 000XE* , 

'000XF' , '000XG' , '000XH' , '000X1' , '000XJ' , 'OOOXK')) 
THEN  MSCHTYPE=3; 
ELSE  IF  SETMDSCH<' 10000'  THEN  MSCHTYPE=1; 
ELSE  IF  *  10000 '<=SETMDSCH<=' 29999'  THEN  MSCHTYPE=2 ; 
ELSE  IF  ' 40000 ' <=SETMDSCH<= ' 49999'  THEN  MSCHTYPE=4; 
ELSE  IF  ' 50000 ' <=SETMDSCH<= ' 59999'  THEN  MSCHTYPE=5 ; 
ELSE  IF  SETMDSCH=' 99999'  THEN  MSCHTYPE=6 ; 
ELSE  MSCHTYPE=8; 
END; 

IF  (MSCHTYPE=1  &  CREDENTL= ' MD   ')  OR 

(MSCHTYPE=2  &  (CREDENTL  IN  ( ' DDM ' , ' DDS ' ) ) )  OR 
(MSCHTYPE=3  &  CREDENTL= ' DPM ' )  OR 
(MSCHTYPE-4  &  CREDENTL='0D  ')  OR 
(MSCHTYPE-5  &  CREDENTL='CH  ')  OR 

(MSCHTYPE=6  &  (CREDENTL  IN  ('MD     , ' DDM ' ,    'DDS',    ' CH   ' , ' OD   ')))  OR 

-84- 


upin\deliver2\chapter3.doc\sjb 


(MSCHTYPE-7  &  CREDENTL- ' DO  ')  THEN  HLCFS- ' K* ; 
ELSE  IF  (HMEDSCHS  NOT  IN  ('F'.'R'))  OR  HCREDNTLA— ' F '  THEN  HLCFS-'N' ; 
ELSE  HLCFS- ' I ' ; 
RUN; 

PROC  FREQ  ORDER-FREQ ;  TABLES  HLCFS; 
TITLE1  '****  SETTING  ****'; 

TITLE2  '****  LOGICAL  CONSISTENCY:  PROVIDER  CREDENTIALS  &  SCHOOL  CODE  ****'; 
RUN; 
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LOGICAL  CONSISTENCY:  PHYSICIAN  STATUS  and  SCHOOL  CODE 


An  example  of  an  inconsistency  is  when  physician  status  indicates  a  physician  and  the  school  code 
indicates  the  provider  graduated  from  a  chiropractic  school. 


Physician  status  (PS): 

a.  PS  has  two  acceptable  values:  1  or  2 

b.  PS  flag  (PSF)  has  one  acceptable  value:  F 

School  code  flag  (SF)  has  two  acceptable  values:  F  or  R 


For  school  codes  with  SF  =  F,  the  school  codes  can  be  collapsed  (MSCHTYPE)  as  indicated  in  Exhibit  3-4. 
Because  of  their  values,  osteopathic  school  codes  should  be  recoded  before  the  medical  school  codes. 
Similarly,  depending  on  your  system's  collating  sequence,  podiatric  school  codes  may  need  to  be 
recoded  before  the  medical  school  codes. 

Logically  consistent  values  of  PS  and  school  recode  (MSCHTYPE)  are  in  Exhibit  3-6. 


If  an  inconsistency  is  found,  check  the  values  of  provider  credentials  and  specialty  code  as  well  as 
physician  status  and  the  school  code. 
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EXHIBIT  3-6 


LOGICALLY  CONSISTENT  VALUES  OF  PHYSICIAN  STATUS  (PS)  AND  SCHOOL 

RECODE  (MSCHTYPE) 


MSCHTYPE  PS 

1  1 

2  2 

3  2 

4  2 

5  2 

6  lor2 

7  1 
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FLOWCHART  FOR  THE  LOGICAL  CONSISTENCY 
BETWEEN  PHYSICIAN  STATUS  AND  SCHOOL  CODE 


Yes 

Flag 

=  K 

J 

L 

(^StopJ^) 


Stop 


Notes: 


SF  denotes  school  flag 
PS  denotes  physician  status 
PSF  denotes  physician  status  flag 


/********************************************************/ 

/*  */ 

/*  Check  logical  consistency  between  physician  status  */ 
/*  &  school  codes  */ 

/*  */ 
/******************************^ 

DATA  S; 
SET  IN.JUL0293 

(KEEP-SETMDSCH  PHYSSTAT) ; 

/*  LOGICAL  CONSISTENCY:  */ 
/*  PHYSICIAN  STATUS  (PHYSSTAT)  &  SCHOOL  CODE  (SETMDSCH)  */ 

IF  PHYSSTAT  IN  ('V  ,'2')  THEN  HPHYSTAT- ' F * ; 
ELSE  IF  PHYSSTAT  IN  ('0','    ')  THEN  HPHYSTAT- 'M' ; 
ELSE  HPHYSTAT-* E' ; 


IF  SETMDSCH  IN  ( '00102 

, '00104 

, '00106' 

, '00301' 

, '00401' 

, '00402 

'00501' , 

'00502'  , 

•00504' , 

•00505' , 

•00506' , 

•00507' 

'00508* 

'00509' , 

•00511' , 

•00512'  , 

'00513' , 

'00514' 

'00515' 

•00516' , 

'00517' , 

•00518'  , 

'00519' , 

•00576' 

'00702' 

'00705' , 

'00801' , 

'00802' , 

'01001' , 

•01002' 

•01003' 

•01102' , 

'01103' , 

•01104'  , 

•01175' , 

'01201' 

'01205' , 

'01209' , 

■01211' , 

'01212'  , 

'01218' , 

'01219* 

•01221' , 

'01222' , 

'01401' , 

•01601'  , 

•01602' , 

'01604* 

'01605' , 

'01606' , 

'01608' , 

•01609'  , 

'01610' , 

•01611* 

'01613' , 

•01614' , 

'01615' , 

•01616'  , 

'01617* , 

•01618' 

'01619* 

•01622' 

•01623' , 

•01642'  , 

•01643' , 

'01644' 

'01645' , 

■01675' 

'01705' 

•01708' 

'01709* , 

•01717' 

'01718' 

'01720' 

•01801' 

'01803' 

'01804* 

•01806' 

'01808* 

•01810' 

•01875' 

'01902' 

'01903' 

'01904' 

'01907* 

•02001' 

•02002' 

•02004' 

'02005' 

'02007' 

'02008' 

'02009' 

'02011' 

•02012' 

'02101' 

'02104' 

'02105' 

•02106' 

'02201' 

'02275' 

•02301' 

•02303' 

'02304' 

'02305' 

'02306* 

'02307' 

'02308* 

'02309' 

•02311' 

'02312' 

'02401* 

•02405' 

'02406' 

'02407' 

'02415' 

'02416' 

•02501' 

•02505' 

•02507' 

•02508' 

•02512' 

'02576' 

'02604' 

'02605' 

'02607' 

'02608' 

■02701' 

'02702' 

'02801' 

•02802' 

'02803' 

'02805' 

'02807' 

•02808' 

•02810' 

•02820' 

'02822' 

'02826' 

'02828' 

•02830' 

'02833' 

•02834' 

'02835' 

•02843' 

'02844' 

•02845' 

•02846' 

•02878' 

'02879* 

'03004' 

•03005' 

'03006' 

, '03007' 

•03101' 

, '03201' 

,  '03305' 

•03306' 

, '03375' 

, '03401' 

, '03501' 

,  '03503* 

, '03506' 

•03508' 

, '03509' 

, '03510' 

, '03511' 

, '03513' 

, '03515' 

'03519' 

, '03520' 

, '03543' 

, '03545' 

, '03546' 

, '03547* 

'03548' 

, '03575' 

, '03601' 

, '03603' 

, '03604* 

, '03605' 

•03607' 

, '03608' 

, '03701' 

, '03801' 

, '03802' 

, '03803' 

•03806' 

, '03808' 

, '03809' 

, '03811' 

, '03819' 

, '03823' 
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'03826'  , 

'03840' , 

•03841' , 

•03843' , 

•03844' 

' 03875 ' 

' 03901' , 

'03905' , 

•03979'  , 

•04001* 

vrtvU£  i 

' 04101 ' 

'04102' , 

•04107'  , 

•04109' , 

'04111* 

' 04113 ' 

'04114' , 

'04177' , 

•04201' , 

•04202' 

' 04203 1 

'04204' 

'04301' , 

'04501'  , 

'04504' 

'04601' 

' 04701 ' 

' 04705 ' 

'04706 ' , 

•04707' , 

•04708' 

•04709' 

' 04711 ' 

'04713 '  , 

'04714' , 

'04715' 

'04720' 

\J^*  O  \J  €m 

' 04803 ' 

'04804'  , 

'04805' 

•04806' 

•04807 ' 

U  lt  U  X  i 

' 04813 ' 

'04814' , 

'04815' 

•04816' 

•04878' 

' 05002 ' 

'05101' , 

•05104' 

'05106' 

•05107' 

' 05404 1 

'  05415 ' 

'05501'  , 

•05502' 

•05575' 

•05602' 

' 05603 ' 

' 05605 ' 

'05606 ' , 

•000XF' 

' 000XG  * 

' 000XH ' 

' 000X1 ' 

' 30000' , 

'30100* 

•30200' 

•30300' 

' 30400 ' 

' 30500 ' 

' 30600'  , 

'40000' 

•40010' 

•40020' 

' 40030 ' 

' 40040 ' 

'40050'  , 

'40060* 

•40070' 

, '40080' 

'40090 ' 

'40100' 

'40110' , 

'40120' 

•40130' 

'40140' 

'40150' 

•04160' 

'40170' , 

'50000' 

•50010' 

'50020' 

•50030' 

•50040' 

'50050*  , 

'50060' 

'50065* 

'50070' 

•50080' 

•50090' 

'50100' , 

•50110' 

'50120' 

'50130' 

•50140' 

•50150' 

•50160'  , 

'50170' 

'50180' 

•50190' 

•50200' 

•50210' 

•50220'  , 

•50230' 

' 50240' 

•50250' 

'50260' 

'50270' 

•50280'  , 

•50290' 

•50300* 

•50310' 

'99999' 

'10000' 

, '20000' ) 

THEN  HMEDSCHS= ' F ' ; 
ELSE  IF  SETMDSCHA=RIGHT (SETMDSCH)  THEN  HMEDSCHS= ' J ' ; 
ELSE  IF  SETMDSCH  IN  ( * 000XA ' , ' 000XB ' , ' 000XC ' , ' 000XD ' , ' 000XE ' , 

' 000XJ ' , ' 000XK ' )  THEN  HMEDSCHS= '  R '  ; 
ELSE  IF  SETMDSCH= '  '  THEN  HMEDSCHS='M' ; 

ELSE  HMEDSCHS= ' E ' ; 

IF  HMEDSCHS  IN  ('F'.'R')  THEN  DO; 

IF  SETMDSCH  IN  (' 00576 ',' 01175 ' ,' 01675 ',' 01875 ',' 02275 ',' 02576 ' , 
'02878' , '02879' , '03375' , '03575' , '03875' , '03979' 
'04177' , '04878' , '05575' )  THEN  MSCHTYPE-7; 
ELSE  IF  (' 30000 ' <=SETMDSCH<= ' 39999')  ] 

(SETMDSCH  IN  ( ' 000XA ' , ' 000XB ' , ' O00XC ' , ' 000XD ' , ' 000XE ' , 

' OOOXF 1 , ' OOOXG ' , ' OOOXH ' , ' OOOXI ' , ' OOOXJ ' , ' OOOXK ' 
THEN  MSCHTYPE=3; 
ELSE  IF  SETMDSCH<' 10000'  THEN  MSCHTYPE=1 ; 
ELSE  IF  ' 10000 '<=SETMDSCH<=' 29999'  THEN  MSCHTYPE=2 ; 
ELSE  IF  ' 40000 ' <=SETMDSCH<= ' 49999'  THEN  MSCHTYPE=4; 
ELSE  IF  ' 50000 ' <=SETMDSCH<= ' 59999'  THEN  MSCHTYPE=5 ; 
ELSE  IF  SETMDSCH=' 99999'  THEN  MSCHTYPE=6 ; 
ELSE  MSCHTYPE-8; 
END; 

IF  ( (MSCHTYPE  IN  (1,6,7))  &  PHYSSTAT= ' 1 ' )  OR 

( (MSCHTYPE  IN  (2,3,4,5,6))  &  PHYSSTAT= ' 2 ' )  THEN  HLCFS='K' ; 
ELSE  IF  (HMEDSCHS  NOT  IN  ('F'.'R'))  OR  HPHYSTAT*= ' F '  THEN  HLCFS='N'; 
ELSE  HLCFS='I' ; 
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RUN; 

PROC  FREQ  ORDER-FREQ ;  TABLES  HLCFS ; 
TITLE1  *****  SETTING  ****'; 

TITLE2  "****  LOGICAL  CONSISTENCY:  PHYSICIAN  STATUS  &  SCHOOL  CODE 
RUN; 
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LOGICAL  CONSISTENCY :  SPECIALTY  CODE  and  SCHOOL  CODE 


An  example  of  an  inconsistency  is  when  the  specialty  code  indicates  a  chiropractor  but  the  school  code 
indicates  the  provider  graduated  from  a  school  of  optometry. 


Specialty  code  flag  (SPF)  has  three  acceptable  values:  F,  S,  or  U.  School  code  flag  (SF)  has  two 
acceptable  values:  F  or  R 


Specialty  code  needs  to  be  re-coded  as  SPECS  (see  Exhibit  3-1) 

For  school  codes  with  SF  =  F,  the  school  codes  can  be  collapsed  (MSCHTYPE)  as  indicated  in  Exhibit  3^. 
Because  of  their  values,  osteopathic  school  codes  should  be  recoded  before  the  medical  school  codes. 
Similarly,  depending  on  your  system's  collating  sequence,  podia  trie  school  codes  may  need  to  be 
recoded  before  the  medical  school  codes. 

Logically  consistent  values  of  SPECS  and  school  recode  (MSCHTYPE)  are  shown  in  Exhibit  3-7. 


Note: 

(1)  Because  the  secondary  specialty  code  is  not  a  required  data  element,  it  may  be  desirable 
to  exclude  from  the  comparisons  cases  in  which  the  secondary  specialty  code  is  equal  to 
zero  (missing)  or  assign  a  blank  value  to  the  flag  variable. 

(2)  For  the  purposes  of  the  logical  consistency  tests,  code  S  is  acceptable  but  it  is  actually  an 
obsolete  code  that  should  be  replaced  (see  the  notes  to  the  specifications  for  specialty 
code  in  Chapter  2). 

(3)  For  the  purposes  of  the  logical  consistency  tests,  the  retired  osteopathy  codes  are 
included  in  code  F.  The  flowchart  does  not  make  reference  to  such  instances  but  the 
accompanying  SAS  program  includes  the  appropriate  coding. 

(4)  The  data  format  for  specialty  code  is  different  for  the  carrier  record  and  the  Registry  file 
(see  Chapter  1).  Since  the  Registry  version  is  alphanumeric,  the  accompanying  SAS 
program  includes  some  logic  to  recode  blank  fields  as  missing  values  and  to  recode  the 
value  hO*  as  zero  (the  lower  case  b  indicates  a  blank). 


If  an  inconsistency  is  found,  check  the  values  of  physician  status  and  provider  credentials  as  well  as 
specialty  code  and  the  school  code. 
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EXHIBIT  3-7 


LOGICALLY  CONSISTENT  VALUES  OF  SPECIALTY  RECODE  (SPECS)  AND  SCHOOL 

RECODE  (MSCHTYPE) 


MSCHTYPE  SPECS 

1  1, 8,  or  9 

2  3  or  4 

3  6 

4  7 

5  5 

6  1,  3, 4,  5,  7,  8,  or  9 

7  1,2,  8,  or  9 
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FLOWCHART  FOR  THE  LOGICAL  CONSISTENCY 
BETWEEN  SPECIALTY  CODE  AND  SCHOOL  TYPE 


Notes: 


Flag  =  N 


I 


(^Stop^) 


Recode  school  codes  per  Exhibit  3-4 


(^StopJ^) 


SF  denotes  school  flag 
SPF  denotes  specialty  code  flag 
SPEC  denotes  specialty  code 
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/********************************************************/ 

/*  */ 

/*  Check  logical  consistency  between  school  type  &  */ 
/*  specialty  codes  */ 

/*  */ 
/********************************************************/ 

DATA  S; 
SET  IN.JUL0293 

(KEEP-SETMDSCH  SPEC1  SPEC2) ; 

/*  LOGICAL  CONSISTENCY:  */ 
/*  SPECIALTY  CODE  (SPEC1 , SPEC2)  &  SCHOOL  CODE  (SETMDSCH)  */ 

IF  (*01'<-SPEC1<-'41')  OR  (SPEC1  IN  ( ' 44 '  ,  '46  '  ,  ' 48  '  ,  '  66  '  ,  '  70 ' )  )  OR 
('76'<-SPECl<-'79*)  OR  ( ' 81 '<-SPECK- * 86 * )  OR  ( '90'<=SPEC1<='94' ) 
THEN  HSPEC1='F* ; 

ELSE  IF  SPEC1  IN  ('     ','  O'.'OO')  THEN  HSPEC1='M' ; 

ELSE  IF  SPEC1='99'  THEN  HSPEC1='U'; 

ELSE  IF  SPEC1='49'  THEN  HSPEC1='S'; 

ELSE  HSPEC1='E' ; 


IF  SPEC1=* 


THEN  SPECS1= 


ELSE 

IF 

SPEC1='  0 

'  THEN  SPECS1=0; 

ELSE 

IF 

SPEC1  IN 

cor , 

'02' , '03' 

'04' , '05' 

'06' 

'07' 

•16'  , 

•18' , '20' 

'22' , '24' 

'25' 

'26' 

'34', 

'36' , '37' 

•38' , '39' 

•40' 

•44' 

'70'  , 

•76'  ,  '77' 

•78'  ,  '79' 

'81' 

'82' 

•91'  , 

'92' , '93' 

•94' ) 

THEN 

SPECS1-1; 

ELSE 

IF 

SPEC1  IN 

('09'  , 

'12' , '15' 

'17' , '21' 

•23' 

•27' 

ELSE  IF  SPEC1='19' 
ELSE  IF  SPEC1='85' 
ELSE  IF  SPEC1='35' 
ELSE  IF  SPEC1='48' 
ELSE  IF  SPECl='41' 
ELSE  IF  SPEC1='49' 
ELSE  IF  SPEC1='99: 
ELSE  SPECS1=10; 


THEN  SPECS1=3 
THEN  SPECS 1=4 
THEN  SPECS1=5 
THEN  SPECS1=6 
THEN  SPECS1=7 
THEN  SPECS1=8 
THEN  SPECS1=9 


'08' 
'28' 
•46' 
•83' 


10' 

'29' 
66' 
84! 


11' 
30' 


13' 
33 1 


14'  , 


86' ,'90' 


31' , '32')  THEN  SPECS1=2; 


IF  ('01'<=SPEC2<=*41')  OR  (SPEC2  IN  ( ' 44 ' , ' 46 ' , ' 48 ' , ' 66 ' , ' 70 ' ) )  OR 
('76'<=SPEC2<='79')  OR  ( ' 81 ' <=SPEC2<= ' 86 ' )  OR  ( ' 90 ' <=SPEC2<= ' 94 ' ) 
THEN  HSPEC2='F' ; 

ELSE  IF  SPEC2  IN  ( '     ','  O'.'OO')  THEN  HSPEC2='M'; 

ELSE  IF  SPEC2='99'  THEN  HSPEC2='U'; 

ELSE  IF  SPEC2-'49'  THEN  HSPEC2='S'; 

ELSE  HSPEC2='E' ; 
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IF  SPEC2-'     '  THEN  SPECS2-. ; 
ELSE  IF  SPEC2-'  0'  THEN  SPECS2=0; 
ELSE  IF  SPEC2  IN 
('01' 
'16* 


'02* 
'18' 
'36' 
'76' 
'92' 


•03* 
'20' 
•37' 
'77' 
'93' 


•34' 
•70' 
•91* 

THEN  SPECS2-1; 
ELSE  IF  SPEC2  IN 
('09'  , 

ELSE  IF  SPEC2-'19 
ELSE  IF  SPEC2-'85 
ELSE  IF  SPEC2-*35 
ELSE  IF  SPEC2-'48 
ELSE  IF  SPEC2-'41 
ELSE  IF  SPEC2-'49 
ELSE  IF  SPEC2-'99 
ELSE  SPECS2-10; 


•04'  , 
'22'  , 
'38'  , 
'78'  , 
•94') 


05' 
24' 
39' 
79' 


12* , '15' , '17' , '21' 
THEN  SPECS2-3; 
THEN  SPECS2— 4 ; 
THEN  SPECS2-5 ; 
THEN  SPECS2-6; 
THEN  SPECS2=7; 
THEN  SPECS2-8; 
THEN  SPECS2=9; 


•06' 
•25* 
'40' 
'81' 


23' 


•07* 
•26' 
•44- 

•82' 


'08' 
'28' 
'46' 
'83' 


•10' 
'29' 
'66' 
•84' 


11' 
30' 


13' 

33' 


'14'  , 


86' , '90' 


27'  ,  '31'  , '32' )  THEN  SPECS2=2; 


IF  SETMDSCH  IN  ( '00102 

, '00104' 

'00501' 

•00502' , 

'00508' 

'00509' , 

'00515' 

'00516' , 

•00702' 

'00705' , 

•01003' 

•01102' , 

'01205' 

•01209' , 

•01221' 

•01222' , 

•01605' 

'01606' , 

'01613' 

•01614'  , 

'01619' 

'01622'  , 

'01645' 

'01675' , 

•01718* 

•01720'  , 

•01808' 

'01810' , 

•01907' 

'02001' , 

•02008' 

'02009'  , 

'02105' 

'02106' , 

•02304' 

'02305' , 

•02311' 

•02312'  , 

•02415' 

•02416' , 

•02512' 

•02576' , 

•02701* 

•02702' , 

'02807' 

•02808' , 

•02828' 

•02830' , 

'02844' 

'02845' , 

'03005' 

, '03006' , 

'03306' 

, '03375'  , 

•03508" 

, '03509* , 

'03519' 

, '03520'  , 

'03548' 

, '03575' , 

'00106 ' 

, '00301 ' 

, '00401 ' 

,  00402 

00504 ' , 

' 00505 ' , 

' 00506 ' , 

00507 

00511 ' , 

' 00512 ' , 

' 00513 ' , 

'00514' 

00517'  , 

'00518 ' , 

'00519' , 

' 00576 ' 

00801' , 

'00802' , 

'01001' , 

'01002' 

01103' , 

•01104' , 

•01175' , 

•01201' 

01211'  , 

'01212* , 

'01218' , 

•01219' 

01401' , 

'01601' , 

•01602' , 

'01604' 

01608  , 

•01609* , 

'01610' , 

•01611' 

01615' 

•01616' , 

•01617'  , 

•01618' 

01623'  , 

•01642' , 

'01643'  , 

•01644' 

01705' 

•01708' , 

'01709' 

•01717' 

01801' 

•01803' 

'01804' 

•01806' 

01875' 

•01902' 

'01903' 

'01904' 

02002' 

•02004' 

•02005' 

'02007' 

02011* 

•02012' 

'02101' 

'02104' 

02201' 

'02275' 

'02301' 

'02303' 

02306' 

•02307' 

'02308' 

'02309' 

02401' 

•02405' 

•02406' 

•02407' 

02501' 

•02505' 

'02507 ' 

•02508' 

02604' 

•02605' 

'02607' 

'02608' 

02801' 

•02802' 

•02803' 

•02805' 

02810' 

, '02820' 

'02822' 

'02826' 

02833' 

, '02834' 

, '02835' 

, '02843' 

02846' 

, '02873' 

, '02879' 

, '03004' 

03007' 

, '03101' 

, '03201' 

, '03305' 

03401' 

, '03501' 

, '03503' 

, '03506' 

03510' 

, '03511' 

, '03513' 

, '03515' 

03543' 

, '03545' 

, '03546' 

, '03547' 

03601' 

, '03603' 

, '03604' 

, *03605' 
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'03607 ' , 

»  ft.  T  f  A  O  t 

03608  , 

j AT 1A1 I 

03 /01  , 

V/jOUZ  , 

1  rnf-trn  ■ 

UJOU  J 

'03806' , 

t  ft  ft  ft  f\  O  1 

' 03808  , 

1 AOOI 1 » 

UjoII  , 

•J  JO  1  7  . 

1  a^p.9  ^ 1 

v  JOZ  J 

'03825' , 

•    ft  ft   ft  ft  /*  1 

' 03826  , 

i  a  i  o  /  a  » 

03840  , 

i  A^ftAA  ' 

'03845' , 

'03875' 

03901  , 

t  A*3  Q  A  » 

•  ATQ7Q  ' 

i  AA  om  1 

•04002' , 

'04101' 

'  04102  , 

»  A  /  1  A  7  1 

0410/ 

1  A/,  1  AQ  ' 

t  A  A  111' 
U**  111 

'04112' 

'04113 ' 

'  04114* , 

041  /  / 

*  A  A  0  A  1  * 

' A A  0 AO  ' 

'04203' 

'04204' 

' 04301  , 

»  A/  CA1  ' 

04501 

»  AA  RAA  * 

' AA  AA1  ' 

'04701' 

'04705' 

' 04706 ' , 

1 04707 ' 

»  A  A  "7  A  Q  ' 

U4  /Uo 

>  A  A  7  A  Q  ' 

'04710' 

'04711' 

'04713'  , 

' 04714 ' 

»  A/.  7 1  ' 

04  /  Id 

»  A A  7  OA ' 

'04802' 

' 04803 ' 

' 04804 '  , 

U4o0  j 

' AA  ft A£  * 

'  AAft  A7  ' 

'04812' 

' 04813 ' 

' 04814 '  , 

»  A  A  O  1  ^  * 

04o1j 

»  A/.  QK» 

•  AAA  7ft 1 

'04901' 

' 05002 

' 05101 ' , 

1  AC1  rt/,  > 

U  j  1U^ 

' nsi A7 ' 

UJ  1U  / 

'05404' 

' 05415 ' 

' 05501 ' , 

»  a *k.  *;no  » 

i AR  ^7  ^ ' 
,    Ujj / J 

i ASAA9 ' 

'05603' 

' 05605 ' 

)   AC    /-A/  f 

05606  , 

| AAAYU » 

UUUAr 

' 000XH ' 

' 000X1 ' 

» ft. AAAA » 

,   30000  , 

»  TA1  AA  » 

* ^aoaa 1 

»  o. A^AO  ' 

' 30400' 

«  ft  ft  r"  /"\  ft  « 

30500 

I TA^ AA > 

,   30600  , 

»  /.AAAA  * 
4U0UU 

»  /■  AA1  A  * 

' A AA9A ' 

'40030* 

'40040' 

f / AAC A > 

,  40050  , 

»  /  A  A  C  A  ' 

40060 

»  /.  A  A  7  A  ' 
,  4-UU/U 

»  A AAR A ' 

'40090' 

'40100 

4U11U  , 

1ZU 

»  A  A 1  ^  A  ' 

'  401 40 ' 

'40150' 

' 04160 ' 

' 40170 ' , 

»  C  A  A  A  A  » 
30000 

l  ^  A  A 1  A  ' 

i SAA9 A ' 

'50030' 

•50040' 

,  '50050'  , 

'50060* 

,  '50065' 

,  '50070' 

' 50080' 

•50090' 

,  '50100' , 

•50110' 

, '50120' 

,  '50130' 

•50140' 

•50150' 

, '50160' , 

'50170' 

, '50180' 

,  '50190' 

'50200' 

' 50210' 

, '50220' , 

'50230' 

, '50240' 

, '50250' 

'50260' 

•50270' 

, ' 50280' , 

'50290' 

, '50300' 

, '50310' 

•99999' 

•10000' 

, '20000' ) 

THEN  HMEDSCHS= ' F ' ; 
ELSE  IF  SETMDSCH*=RIGHT( SETMDSCH)  THEN  HMEDSCHS= ' J ' ; 
ELSE  IF  SETMDSCH  IN  ( ' 000XA' , ' 000XB ' , ' 000XC ' , ' 000XD ' , ' 000XE ' , 

' 000XJ ' , ' 000XK ' )  THEN  HMEDSCHS= ' R' ; 
ELSE  IF  SETMDSCH= '  '  THEN  HMEDSCHS='M' ; 

ELSE  HMEDSCHS='E' ; 

IF  HMEDSCHS  IN  ('F'.'R')  THEN  DO; 

IF  SETMDSCH  IN  (• 00576 ',' 01175 01675 ',' 01875 ',' 02275 1 02576 ' , 
'02878' , '02879' , '03375' , '03575' , '03875' , '03979' 
'04177' , '04878' , '05575')  THEN  MSCHTYPE=7 ; 
ELSE  IF  (' 30000 * <=SETMDSCH<= ' 39999')  ] 

(SETMDSCH  IN  ('000XA' , '000XB' , '000XC* , '000XD' , '000XE' , 

' 000XF ' , ' 000XG ' , ' 000XH ' , ' 000X1 ' , ' 000XJ ' , ' 000XK ' 
THEN  MSCHTYPE=3; 
ELSE  IF  SETMDSCH<' 10000'  THEN  MSCHTYPE-1; 
ELSE  IF  ' 10000 '<=SETMDSCH<=' 29999'  THEN  MSCHTYPE=2 ; 
ELSE  IF  ' 40000 ' <=SETMDSCH<= ' 49999'  THEN  MSCHTYPE=4; 
ELSE  IF  ' 50000 ' <=SETMDSCH<= ' 59999'  THEN  MSCHTYPE=5 ; 
ELSE  IF  SETMDSCH=' 99999*  THEN  MSCHTYPE-6 ; 
ELSE  MSCHTYPE=8; 
END; 

IF  (MSCHTYPE=1  &  (SPECS1  IN  (1,8,9)))  OR 
(MSCHTYPE=2  &  (SPECS1  IN  (3,4)))  OR 
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(MSCHTYPE-3  &  SPECS1-6)  OR 
(MSCHTYPE-4  &  SPECS1-7)  OR 
(MSCHTYPE-5  &  SPECS1-5)  OR 

(MSCHTYPE-6  &  (SPECS1  IN  (1,3,4,5,7,8,9)))  OR 
(MSCHTYPE-7  &  (SPECS1  IN  (1,2,8,9)))  THEN  HLCFSl-'K' ; 

ELSE  IF  (HMEDSCHS  NOT  IN  ('F'.'R'))  OR  (HSPEC1  NOT  IN  ('F','S','U')) 
THEN  HLCFS1='N' ; 

ELSE  HLCFS1-'I' ; 

IF  (MSCHTYPE-1  &  (SPECS2  IN  (1,8,9)))  OR 
(MSCHTYPE-2  &  (SPECS2  IN  (3,4)))  OR 
(MSCHTYPE-3  &  SPECS2-6)  OR 
(MSCHTYPE-4  &  SPECS2-7)  OR 
(MSCHTYPE-5  &  SPECS2-5)  OR 

(MSCHTYPE-6  &  (SPECS2  IN  (1,3,4,5,7,8,9)))  OR 
(MSCHTYPE-7  &  (SPECS2  IN  (1,2,8,9)))  THEN  HLCFS2='K' ; 
ELSE  IF  (HMEDSCHS  NOT  IN  ('F'.'R'))  OR  (HSPEC2  NOT  IN  ('F'.'S'.'U')) 

THEN  HLCFS2-'N' ; 
ELSE  HLCFS2='I' ; 
RUN; 

PROC  FREQ  ORDER- FREQ ;  TABLES  HLCFS1  HLCFS2; 
TITLE1   '****  SETTING  ****'; 

TITLE2  '****  LOGICAL  CONSISTENCY:  SPECIALTY  CODE  &  SCHOOL  CODE  ****'; 
RUN; 
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LOGICAL  CONSISTENCY:  BIRTH  YEAR  AND  GRADUATION  YEAR 


An  example  of  an  inconsistency  is  when  the  graduation  year  and  birth  year  imply  a  very 
young  graduation  age  (e.g.,  15  years  old)  or  very  old  graduation  age  (e.g.,  65  years  old). 


The  birth  year  flag  (BYF)  has  two  acceptable  values:  F  or  D.  The  graduation  year  flag  (GYF) 
has  two  acceptable  values:  F  or  D. 

Graduation  age  (GRADAGE)  is  equal  to  graduation  year  minus  birth  year. 
Birth  year  and  graduation  year  are  consistent  when: 
24  <  GRADAGE  <  40 


Notes: 

(1)  The  data  integrity  tests  for  birth  year  are  included  in  the  SAS  program  but  not  the 
flowchart. 

(2)  The  birth  year  data  integrity  tests  are  similar  to  those  for  the  full  date  of  birth  except 
that  for  years  1901-1969,  month  and  day  values  are  not  checked  (however,  January  1, 
1901  is  still  not  an  acceptable  value). 


If  an  inconsistency  is  found,  check  the  provider's  date  of  birth  and  graduation  date. 
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FLOWCHART  FOR 
LOGICAL  CONSISTENCY  BETWEEN 
BIRTH  YEAR  AND  GRADUATION  YEAR 


Notes: 

BYR  denotes  birth  year; 
BYF  denotes  birth  year  flag; 
GYR  denotes  graduation  year; 
GYF  denotes  graduation  year  flag; 
GRADAGE  denotes  graduation  age. 
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/********************************************************/ 


V 


/*  Check  logical  consistency  between  birth  year  and  */ 
/*  graduation  year  */ 

/*  */ 
/********************************************************/ 


DATA  S; 
SET  IN.JUL0293 

(KEEP-SETDOB  SETGRDYR) ; 

/*  SETTING  DATE  OF  BIRTH  (SETDOB)  */ 


IF  SETDOB>0  THEN  DO; 
DOBYRS  -  SUBSTR( SETDOB, 7 
MODAYS  =  SUBSTR(SETD0B,9 
IF  DOBYRS- '     '  THEN  DO; 
IF  (101<-SETDOB<=131) 
(301<-SETDOB<-331) 
(501<-SETDOB<=531) 
(701<-SETDOB<=731) 
(901<=SETDOB<=930) 
( 1 10 1<=S ETDOB<= 1130) 
THEN  DOBYRS= ' 00 ' ; 
END; 
END; 


2); 
4); 

(201<=SETDOB<=229) 

(401<=SETDOB<-430) 

(601<=SETDOB<=630) 

(801<=SETDOB<=831) 

(1001<=SETDOB<=1031 

]  (1201<=SETDOB<=12 


)  ] 
31) 


IF  ('14'<-DOBYRS<='69')  THEN  HDOBS-' F'; 


ELSE  IF  DOBYRS- '00'  &  MODA 
(('  101' <-MODAYS<=' 0131 ' ) 
(MODAYS='0229'  &  DOBYRS*— 
('  301 '<-M0DAYS<-' 0331") 
('  501'<=MODAYS<='0531' ) 
('  701 '<=MODAYS<=' 0731' ) 
('  901' <=MODAYS<-' 0930 ' ) 
( ' 1101' <=MODAYS<=' 1130' ) 


fS"='0000'  & 

]    ('   201 '<=MODAYS<=' 0228' )  ] 

'00'  &     (D0BYRS/4=INT(D0BYRS/4)))  ] 

]    ('  401 '<=MODAYS<-' 0430 ' )  ] 

]    ('   601 '<=MODAYS<=' 0630' )  ] 

]    ('   801' <=MODAYS<=' 0831 ' )  ] 

]    (' 1001' <=MODAYS<-' 1031")  ] 

]    ('1201'<=MODAYS<=,1231'))  THEN  HDOBS 


ELSE  IF  ('   1'<=D0BYRS<='13')  THEN  HD0BS='D'; 

ELSE  IF  SETDOB=999999   ]   SETDOB=0  ]   SETDOB-.  THEN  HDOBS- 'M' ; 


ELSE  IF  SETDOB-10101  THEN  HDOBS- ' 1 ' ; 


ELSE  IF  DOBYRS- '99'  &  MOD 
(('  101 '<=MODAYS<=' 0131 ' ) 
(MODAYS- '0229'  &  DOBYRS' 
('  301 '<-MODAYS<-' 0331') 
('  501 '<-MODAYS<=' 0531 ' ) 
('   701,<=MODAYS<='0731' ) 


YS"='0000'  & 

]    ('   201 '<=M0DAYS<=' 0228 ' )  ] 

•00'  &     (DOBYRS/4-INT(DOBYRS/4)))  ] 

]    ('  401 '<=MODAYS<=' 0430 ' )  ] 

]    ('   601 '<=MODAYS<=' 0630 ' )  ] 

]    ('   801 '<-M0DAYS<=' 0831 ' )  ] 
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('   901*<-MODAYS<-'0930' )   ]   (' 1001 ' <-MODAYS<- ' 1031 ' )  ] 
CllOl^-MODAYSO'mO')   ]   (' 1201 '<«M0DAYS<=' 1231'))  THEN  HDOBS- 

ELSE  HDOBS-'E" ; 

/*  SETTING  GRADUATION  YEAR  (SETGRDYR)  */ 

IF  SETGRDYR-0  THEN  HGRADYRS-= ' M '  ; 
ELSE  IF  30<-SETGRDYR<-39  THEN  HGRADYRS= ' D ' ; 
ELSE  IF  40<-SETGRDYR<=93  THEN  HGRADYRS- ' F ' ; 
ELSE  IF  SETGRDYR-99  THEN  HGRADYRS= ' 9 ' ; 
ELSE  HGRADYRS— ' E ' ; 

IF  HGRADYRS  IN  ('F'.'D')  AND  HDOBS  IN  ('F'.'D')  THEN  DO; 

GRADAGE  -  SETGRDYR  -  DOBYRS ; 

IF  (24<-GRADAGE<-40)  THEN  HLCFS='K'; 

ELSE  HLCFS='I' ; 
END; 

ELSE  HLCFS='N' ; 

OUTPUT  S; 
RUN; 

PROC  FREQ  DATA=S  ORDER=FREQ;   TABLES  HLCFS ; 

TITLE1   '****  SETTING  ****'; 

TITLE2 

'****  LOGICAL  CONSISTENCY:   BIRTH  YEAR  &  GRADUATION  YEAR  ****'; 
RUN; 
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LOGICAL  CONSISTENCY:  MEDICAL  SCHOOL  OPEN/CLOSE  DATES  and 

GRADUATION  YEAR 


We  assume  that  program  code  has  been  created  to  identify  medical  schools  (as  distinct  from  other 
schools)  where  MSCHTYPE=1  denotes  a  medical  school  and  that  a  graduation  year  flag  (GYF)  has  been 
created  (F  and  D  are  acceptable  values  for  GYF). 


Because  open  and  close  dates  are  not  available  for  defunct  non-medical  schools,  such  schools  are 
excluded  from  comparisons  and  the  comparison  flag  variable  takes  a  blank  value. 


Open  and  close  dates  for  each  school  are  in  a  separate  file.  (A  flat  file  on  diskette  with  school  names  and 
their  codes  and  open/ close  dates  can  be  obtained  from  BPO.  Open/ close  dates  are  listed  in  Appendix  A 
of  this  report.)  Each  open  and  close  date  includes  the  complete  year  value  (i.e.,  1856  instead  of  56)  to 
avoid  century  identification  problems.  Medical  schools  still  in  operation  were  given  a  pseudo  closure 
date  of  3000. 


The  carrier  record  graduation  year  has  a  YY  format  Therefore,  1900  was  added  to  its  value  in  order  to 
make  it  comparable  to  the  open/closure  dates.  (This  procedure  would  have  to  be  modified  after  1999.) 


Open  and/or  closure  dates  could  not  be  found  for  the  Washington  College  of  Physicians  and  Surgeons 
(code=05415)  believed  to  have  been  located  in  Seattle,  Washington.  None  of  the  contacted  organizations 
and  agencies  ever  heard  of  the  school.  Because  open/ closure  dates  are  not  available,  the  logical 
consistency  flag  will  have  a  value  of  I  (inconsistency  between  otherwise  feasible  values). 


Logically  consistent  values  for  a  given  school  code's  open/ close  dates  and  graduation  year: 
Open  date  <  graduation  year  <  Close  date 


If  an  inconsistency  is  found,  both  school  code  and  graduation  date  need  to  be  checked. 

 .  
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FLOWCHART  FOR  LOGICAL  CONSISTENCY  BETWEEN 
GRADUATION  YEAR  AND  MEDICAL  SCHOOL  OPEN/CLOSE  DATES 


Flag  =  K 


Notes: 

GYF  denotes  graduation  year  flag 
SCHOOL  denotes  school  code 
GRAOYR  denotes  graduation  year 
OPEN  denotes  school  open  date 
CLOSE  denotes  school  closure  date 
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/********************************************************/ 

/*  */ 

/*  Check  medical  school  open/close  dates  against  */ 
/*  graduation  dates  on  Registry  file  */ 

/*  */ 
/********************************************************/ 

/*  MEDICAL  SCHOOL  OPEN  &  CLOSE  DATE  FILE  */ 

DATA  M;   INFILE  IN2 ; 

INPUT  MDSCH  $5.  OPENYR  CLOSEYR; 

RUN; 

PROC  SORT;  BY  MDSCH; 
RUN; 

/*  LOGICAL  CONSISTENCY:  */ 
/*  MEDICAL  SCHOOL  OPEN/CLOSE  DATES  &  GRADUATION  */ 

DATA  S(KEEP=SETMDSCH  MSCHTYPS  HMEDSCHS  SETGRDYR  HGRADYRS) 
SET  IN1.JUL0293 

(KEEP=SETMDSCH  SETGRDYR) ; 


SETMDSCH  IN  ( '00102 ' 

'00104' 

'00106' 

'00301' , 

'00401' , 

'00402' 

'00501' 

'00502' 

'00504' 

•00505'  , 

'00506' , 

•00507' 

'00508' 

'00509' 

'00511' 

•00512' , 

'00513'  , 

•00514' 

'00515' 

•00516' 

•00517' 

'00518' , 

'00519' , 

'00576' 

'00702 ' 

'00705' 

•00801' 

•00802' , 

'01001' , 

•01002' 

'01003' 

•01102' 

•01103' 

'01104' 

'01175* , 

'01201' 

'01205' 

'01209' 

'01211' 

•01212' 

'01218' , 

•01219' 

'01221' 

'01222' 

'01401' 

■01601' 

•01602' , 

'01604' 

'01605' 

'01606' 

'01608' 

'01609' 

'01610' , 

•01611' 

'01613' 

'01614' 

'01615' 

•01616' 

•01617' , 

•01618' 

'01619' 

'01622' 

'01623' 

•01642' 

•01643' 

'01644* 

'01645' 

•01675' 

'01705' 

'01708' 

'01709' 

•01717' 

•01718' 

•01720' 

'01801' 

'01803' 

'01804' 

•01806' 

'01808' 

'01810' 

'01875' 

•01902' 

•01903' 

•01904' 

'01907' 

•02001' 

'02002' 

'02004' 

•02005' 

'02007' 

•02008' 

•02009' 

•02011' 

•02012' 

'02101' 

•02104' 

•02105' 

'02106' 

•02201' 

'02275' 

'02301' 

•02303' 

•02304' 

•02305' 

•02306' 

'02307' 

•02308' 

'02309' 

'02311' 

'02312' 

•02401' 

'02405' 

•02406' 

•02407' 

'02415' 

'02416 ' 

'02501' 

•02505' 

'02507' 

'02508' 

'02512' 

•02576' 

'02604' 

•02605' 

•02607' 

•02608' 

•02701' 

'02702' 

'02801' 

•02802' 

■02803' 

'02805' 

•02807' 

•02808' 

•02810' 

•02820' 

•02822' 

•02826' 

•02828' 

, '02830' 

, '02833' 

, '02834' 

, '02835' 

•02843' 

■02844' 

, '02845' 

, '02846' 

, '02878' 

, '02879' 

, '03004' 

•03005' 

, '03006' 

, '03007' 

, '03101' 

, '03201' 

,  '03305* 

•03306' 

, '03375' 

, '03401' 

, '03501' 

, '03503' 

, '03506' 

'03508' 

, '03509' 

, '03510' 

, '03511' 

, '03513' 

, '03515* 
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•03519' , '03520' , '03543' , '03545' , '03546' , '03547' 
'03548* , '03575' , '03601' , '03603' , '03604' , '03605' 
'03607' , '03608' , '03701' , '03801' , '03802' , '03803' 
'03806' , '03808' , '03809' , '03811' , '03819' , '03823' 
'03825' , '03826' , '03840' , '03841' , '03843' , '03844' 
'03845' , '03875' , '03901' , '03905' , '03979' , '04001' 
' 04002 ' , ' 04101 ' , ' 04102 ' , ' 04107 ' , ' 04109 ' , ' 04111 ' 
'04112' , '04113' , '04114' , '04177' , '04201' , '04202' 
'04203' , '04204' , '04301' , '04501' , '04504' , '04601' 
' 04701 ' , ' 04705 ' , ' 04706 ' , ' 04707 ' , ' 04708  * , ' 04709 ' 
'04710' , '04711' , '04713' , '04714' , '04715' , '04720* 
' 04802 ' , ' 04803  * , ' 04804 ' , ' 04805 ' , *  04806 ' , ' 04807 ' 
'04812' , '04813' , '04814' , '04815' , '04816' , '04873' 
'04901' , '05002' , '05101' , '05104' , '05106' , '05107' 
•05404' , '05415' , '05501' , '05502' , '05575' , '05602' 
'05603' , '05605' , '05606' , '000XF' , 'OOOXG' , 
' OOOXH ' , ' OOOXI ' , ' 30000 ',' 30100 ', ' 30200 ' , ' 30300 ' 
'30400' , '30500' , '30600' , '40000' , '40010' , '40020' 
'40030' , '40040' , '40050' , '40060' , '40070' , '40080' 
'40090' , '40100' , '40110' , '40120' , '40130' , '40140' 
•40150' , '04160' , '40170' , '50000' , '50010' , '50020' 
' 50030 ' , ' 50040 ' , ' 50050 ' , ' 50060 ' , ' 50065 ' , ' 50070 ' 
'50080' , '50090' , '50100' , '50110' , '50120' , '50130' 
■50140' , '50150' , '50160' , '50170' , '50180' , '50190' 
'50200' , '50210' , '50220' , '50230' , '50240' , '50250' 
'50260' , '50270' , '50280' , '50290' , '50300' , '50310' 
'99999' , '10000' , '20000' ) 
THEN  HMEDSCHS= ' F ' ; 

ELSE  IF  S ETMD S  CH  A  =R I GHT ( S  ETMD  S  CH )  THEN  HIiEDSCHS= ' J ' ; 

ELSE  IF  SETMDSCH  IN  ( ' OOOXA ' , ' OOOXB ' , ' OOOXC ' , ' OOOXD ' , ' OOOXE ' , 

'OOOXJ ' , 'OOOXK' )  THEN  HMEDSCHS='R' ; 

ELSE  IF  SETMDSCH= '  '  THEN  HMEDSCHS= ' M ' ; 

ELSE  HMEDSCHS= ' E ' ; 


IF  HMEDSCHS  IN  ('F'.'R')  THEN  DO; 

IF  SETMDSCH  IN  (' 00576 ',' 01175 ',' 01675 ' , 
•02878' , '02879' , '03375' , 
•04177' , '04878' , '05575' ) 
ELSE  IF  (' 30000 ' <=SETMDSCH<= ' 39999 ' )  ] 

(SETMDSCH  IN  (' OOOXA ',' OOOXB ',' OOOXC 
'OOOXF' , 'OOOXG' , 'OOOXH 
THEN  MSCHTYPS=3; 
SETMDSCH<' 10000'  THEN  MSCHTYPS=1; 
' 10000 '<-SETMDSCH<-' 29999 '  THEN  MSCHTYPS-2 
' 40000 '<=SETMDSCH<=' 49999'  THEN  MSCHTYPS=4 
' 50000 '<=SETMDSCH<=' 59999'  THEN  MSCHTYPS=5 
SETMDSCH= ' 99999 '  THEN  MSCHTYPS=6 ; 


01875' , '02275' , '02576' 
03575' , '03875* , '03979' 
THEN  MSCHTYPS=7; 


OOOXD' 
OOOXI ' 


ELSE 
ELSE 
ELSE 
ELSE 
ELSE 


IF 
IF 
IF 
IF 
IF 


ELSE  MSCHTYPS=8; 
END; 


'  OOOXE ' 
'OOOXJ ' 


OOOXK' 
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IF  40<-SETGRDYR<-93  THEN  HGRADYRS- ' F ' ; 

ELSE  IF  S ETGRDYR A  -R I GHT  ( S  ETG RDYR )  THEN  HGRADYRS-' J ' ; 

ELSE  IF  30<-SETGRDYR<-39  THEN  HGRADYRS- ' D ' ; 

ELSE  IF  SETGRDYR  IN  (0,99,.)  THEN  HGRADYRS='M' ; 

ELSE  HGRADYRS- ' E ' ; 

OUTPUT  S; 
RUN; 

PROC  SORT  DATA-S;  BY  SETMDSCH; 
RUN; 

DATA  MS;  MERGE  M(RENAME-(MDSCH=SETMDSCH) ) 

S (WHERE- (MSCHTYPS=1)  IN-INS) ; 
BY  SETMDSCH; 
IF  INS; 

GRADYRS    ■  1900  +  SETGRDYR; 

IF  SETMDSCH=' 05415'  THEN  HLCFS='I'; 

ELSE  IF  (OPENYR<=GRADYRS<=CLOSEYR)  &  (HGRADYRS  IN  ( ' F ' ,    ' D ' ) )  THEN  HLCFS 
ELSE  IF  HGRADYRS  NOT  IN  ('F'.'D')  THEN  HLCFS- 'N'; 
ELSE  HLCFS-' I ' ; 
RUN; 

PROC  FREQ  ORDER=FREQ ;  TABLES  HLCFS; 
TITLE1   '****  SETTING  ****' ; 
TITLE2 

•****  LOGICAL  CONSISTENCY:  MEDICAL  SCHOOL  OPEN/CLOSE  DATES  &  GRADUATION 
**** 1 • 


upin\deliver2\chapter3.doc\sjb 


-107- 


CHAPTER  4 
DETECTION  OF  MULTIPLE-UPIN  PROVIDERS 
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MULTIPLE-UPIN  PROVIDERS 


Each  provider  is  supposed  to  have  only  one  UPIN.  However,  many  instances  of 
providers  with  more  than  one  UPIN  have  been  found.  The  purpose  of  this  chapter  is  to  detect 
cases  of  multiple-UPIN  providers.  (In  this  chapter,  the  word  cases  refers  to  sets  of  two  or  more 
UPINs  identified  by  the  detection  algorithm.)  Cases  identified  by  the  detection  algorithm 
should  be  regarded  as  potential  cases  of  multiple  UPIN  providers. 

To  verify  that  an  identified  case  warrants  further  investigation,  visual  inspection,  at  a 
minimum,  of  the  data  elements  present  in  each  record  in  each  case  is  needed.  To  help  assess 
whether  or  not  a  computer-identified  multiple-UPIN  case  warrants  further  investigation,  it  is 
recommended  that  the  following  data  elements  from  the  provider  file  be  examined:  state 
license  number,  state  licensed  in,  credential,  school  code,  graduation  year,  date  of  birth,  the 
business  address,  the  billing  address,  and  all  of  the  current  name  fields.  The  values  of  the 
identified  providers  should  be  compared.  In  many  instances,  a  discrepancy  in  one  pair  of 
feasible  values  (c.f.,  Chapter  2)  will  suffice  to  indicate  that  the  potential  multiple-UPIN  case  is  a 
false  positive  (that  is,  not  really  a  multiple-UPIN  case).  There  are  instances,  however,  in  which 
some  of  the  available  information  for  a  case  indicates  that  it  is  a  false  positive  while  other 
information  indicates  that  further  investigation  is  warranted.  (See  the  example  presented  in 
section  8.2.1.  of  the  Carrier  Analysis.)  Further  investigation  should  be  undertaken  in  such 
instances. 

If  visual  inspection  of  information  present  in  the  provider  file  is  not  sufficient  to 
determine  whether  the  computer-identified  case  is  a  false  positive,  then  further  investigation  is 
necessary.  Other  information  maintained  by  the  carrier,  including  other  computerized  practice 
setting  information  and  hardcopy  (papers)  files,  should  be  consulted.  Other  sources  that  could 
provide  valuable  information  include  state  agencies  (e.g.,  for  state  license  number).  The 
provider  should  also  be  contacted  by  phone  and/ or  mail. 
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Data  Elements 

To  detect  cases  of  multiple  UPINs  for  a  provider,  a  "screener"  variable  (SCREENER)  is 
created  that  is  the  result  of  concatenating  parts  of  two  data  elements  together  to  form  one  new 
variable.  SCREENER  uses  the  date  of  birth  and  the  first  three  letters  of  the  last  name  of  the 
provider.  Date  of  birth  is  included  in  SCREENER  because  of  the  large  number  of  individuals 
with  common  last  names  such  as  Jones  and  Smith.  Because  of  the  inordinate  number  of 
providers  with  a  date  of  birth  of  January  1, 1901,  we  believe  that  its  usage  is  not  valid. 
Additionally,  although  technically  feasible,  dates  of  birth  prior  to  1901  also  seem  implausible. 
Therefore,  only  feasible  dates  of  birth  after  January  1, 1901  are  used  in  the  algorithm  to  detect 
multiple  UPIN  cases.  Because  of  concern  about  spelling  variation  (mistakes),  only  the  first 
three  letters  of  the  last  name  are  used  (spaces,  numbers,  and  special  characters  are  not 
considered  letters). 

The  total  number  of  potential  multiple-UPIN  cases,  for  which  only  one  carrier  was 
identified,  was  2,192  cases  when  using  the  above  algorithm  (Chapter  8  in  our  Carrier  Analysis). 
Only  six  carriers  would  have  to  investigate  more  than  100  computer-identified  cases  (215  is  the 
most)  and  another  six  carriers  would  have  between  50  and  100  cases.  The  other  carriers  would 
have  less  than  50  cases  each  to  investigate. 

Provider  Records  Without  Feasible  Dates  of  Birth 

For  providers  without  feasible  dates  of  birth  (or  prior  to  January  2, 1901),  just  use  the 
first  three  letters  of  the  provider's  last  name  as  the  value  of  SCREENER  and  modify  the 
detection  algorithm  as  necessary.  We  have  not  tested  this  algorithm  on  the  Registry  file  and 
therefore  cannot  provide  estimates  of  the  investigation  burden. 
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LOGIC  TO  DETECT  MULTIPLE-UPIN  PROVIDERS 


Exclude  from  the  detection  run:  (1)  providers  with  no  active  practice  settings,  and  (2)  dates 
birth  prior  to  January  2, 1901  and  all  infeasible  dates. 


Create  a  SCREENER  variable  by  concatenating  the  date  of  birth  and  the  first  three  letters  of  the 
provider's  last  name  (use  only  letters). 

Sort  the  file  by  SCREENER. 


If  there  is  only  one  provider  (observation)  for  a  given  value  of  SCREENER,  then  drop  the 
observation  from  subsequent  processing.  The  remaining  observations  constitute  the  pool  of 
potential  cases  of  multiple-UPIN  providers.  (Dividing  the  total  number  of  remaining 
observations  by  two  will  provide  an  approximate  number  of  potential  multiple-UPIN  cases.) 


For  each  value  of  SCREENER,  print  information  for  each  provider  that  could  be  useful  f 
distinguishing  individual  providers  from  one  another.  We  recommend,  at  a  minimum, 
following  data  elements  to  help  determine  whether  the  detected  case  should  be  further 
investigated  as  a  potential  multiple-UPIN  provider: 


date  of  birth 
provider's  last  name 
provider's  first  name 
provider's  middle  initial 
provider's  name  suffix  (e.g.,  Jr.) 
provider  credentials 
physician  status 
state  licensed  in 
state  license  number 
school  code 
graduation  year 
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/********************************************************/ 

/*  */ 

/*  -CHECK  FOR  MULTIPLE  UPINS  PER  PHYSICIAN  FOR  ACTIVE  */ 
/*  PRACTICE  SETTINGS.  */ 
/*  */ 
/********************************************************/ 

DATA  X;    SET  IN.JUL0293 
(WHERE=(DOB>0) 

DROP=CONTROL  OLJLNAME — OLDSUFF  NUMCARRY  AUDIT IND — OLDCNTRL 
NUMMEDIC — SETSTAT  BOARD 1 — BOARD2  PRACTIND — LINK 
STATVAL — AMAIND) ; 

IF   ( INTERN= 1 R1    ]    INTERN= ' I '    ]    INTERN= ' P ' )   THEN  DRIP='A'; 
ELSE  IF  INTERN=  * D '   THEN  DRIP='D'; 
ELSE  DRIP='M* ; 

/A*****************************************************************/ 
/*  */ 
/*  The  next  statement  drops  de-activated  settings  */ 
/*      from  subsequent  processing  */ 

/ 
/ 


*/ 

********************************************************** 


IF  DRIP  IN    ( 1  A1 ,  'M' ) ; 

IF  SETDATE>0  THEN  SETYR  =  SUBSTR ( SETDATE, 7,2) ; 
IF  SETYR='89'   THEN  SETYRADD=1 ; 

ELSE  IF  SETYR='90'  ]  SETYR='91'  THFN  SETYRADD=2; 
ELSE  IF  SETYR='92*  ]  SETYR='93'  TH7N  SETYRADD=3; 
ELSE  DELETE; 

PROC  SORT;   BY  UPIN  SETDATE; 
RUN; 

DATA  A;   SET  X;    BY  UPIN; 

IF  FIRST. UPIN; 

/******************************************************************* 
/* 

/*       This  section  checks  the  validity  of  date  of  birth.  Non-feasibl 

/*      dates  of  birth  &  dates=Jan.   1,   1901  are  not  included 

/* 

/******************************************************************* 

DOBYR  =   SUBSTR (DOB, 7, 2) 
DOBMO  =  SUBSTR (DOB, 9, 2) 
MO DAY  =  SUBSTR (DOB, 9, 4) 
IF  DOBYR= '      '   THEN  DO; 
IF    (101<=DOB<=131)    ]    (201<=DOB<=229)  ] 

(301<=DOB<=331)    ]    (401<=DOB<=430)  ] 

(501<=DOB<=531)    ]    ( 601<=DOB<=630 )  ] 

(701<=DOB<=731)    ]    ( 801<=DOB<=831 )  ] 

(901<=DOB<=930)    ]    ( 1001<=DOB<=1031 )  ] 

(1101<=DOB<=1130)    ]  (1201<=DOB<=1231) 


THEN  DOBYR='00' ; 
END; 


IF  DOBYR='00'   THEN  BYRH=0; 

ELSE  IF   1    1'<=DOBYR<'20'   THEN  BYRH=1; 

ELSE  IF   '20'<=DOBYR<=' 69'   THEN  BYRH=2; 

ELSE  IF   '70'<=DOBYR<=' 98'   THEN  BYRH=3; 

ELSE  IF  DOBYR='99*    &    ('      ' <DOBMO< ' 13 ' ) 

ELSE  IF  DOBYR='99'   THEN  BYRH=5; 

ELSE  IF  DOB=0  THEN  BYRH=6; 


THEN  BYRH=4; 


IF  BYRH=.    ]    BYRH=5   ]    BYRH=6  THEN  BYRHX=1; 
ELSE  IF  BYRH=3  THEN  BYRHX=2; 
ELSE  IF  BYRH=4  THEN  BYRHX=3; 
ELSE  BYRHX=4; 


IF  BYRHX=4   &  MODAY/N='0000'    &  DOB' 


( 


101 '<=MODAY<=' 0131' ) 
301' <=MODAY<=' 0331 ' ) 
501' <=MODAY<=' 0531' ) 
701 '<=MODAY<=' 0731' ) 
901 '<=MODAY<=' 0930' ) 
1101 '<=MODAY<=' 1130 1 ) 


=10101  & 
201' <=MODAY<=* 0229' ) 
401' <=MODAY<=' 0430' ) 
601' <=MODAY<=' 0630' ) 
801 '<=MODAY<=' 0831' ) 
1001 '<=MODAY<=' 1031' ) 
1201 '<=MODAY<=' 1231' ) ) 


INFORMAT  Fl   $1.    L1-L20  $1.    LI  3   $3.    LN1-LN20  2, 


LI  =  SUBSTR ( LNAME ,1,1) 
L2  =  SUBSTR (LNAME, 2, 1) 
L3  =  SUBSTR (LNAME, 3, 1) 
L4  =  SUBSTR (LNAME, 4, 1) 
L5  =  SUBSTR (LNAME, 5, 1) 
L6  =  SUBSTR (LNAME, 6, 1) 
L7  =  SUBSTR (LNAME, 7, 1) 
L8  =  SUBSTR ( LNAME ,8,1) 
L9  =  SUBSTR (LNAME, 9, 1) 
L10  =  SUBSTR (LNAME, 10, 1) 
Lll  =  SUBSTR (LNAME, 11, 1) 
L12  =  SUBSTR (LNAME, 12, 1) 
L13  =  SUBSTR (LNAME, 13, 1) 
L14  =  SUBSTR (LNAME, 14, 1) 
L15  =  SUBSTR (LNAME, 15, 1) 
L16  =  SUBSTR (LNAME, 16, 1) 
L17  =  SUBSTR (LNAME, 17, 1) 
L18  =  SUBSTR (LNAME, 18, 1) 
L19  =  SUBSTR (LNAME, 19, 1) 
L20  =  SUBSTR (LNAME, 20,1) 

/it*****************************************************************/ 

*  I 

/* 

/*  The  first  3  letters  of  the  last  name  are  used  as  part  of  the  */ 
/*  SCREENER.  Spaces  and  other  special  characters  are  not  */ 
/*  included.  The  first  5  letters  of  the  last  name  were  checked  */ 
/*  as  part  of  the  construction  of  Ll_3 .  */ 
/* 

/******************************************************************/ 
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IF   (*A,<=LK=,Z')    &    (,A'<=L2<='Z' )    &    ( '  A'  <=L3<='  Z 1  )  THEN 

Ll_3  =  L1]]L2]]L3; 

ELSE  IF   ( 'A'<=LK=,Z' )  &    (  'A'  <=L2<= '  Z  '  )    &  ('A'<=L4<='Z 

Ll_3  =  LI] ]L2] ]L4; 

ELSE  IF   ( 'A'<=L1<='Z' )  &    ( ' A' <=L2<= 1 Z 1 )    &  ('A'<=L5<='Z 

LI  3  =  L1]]L2]]L5; 

ELSE  IF    ( 'A,<=LK='Z' )  &    (  '  A'  <=L3<=  '  Z  '  )    &  ('A'<=L4<='Z 

Ll_3  =  LI] ]L3] ]L4; 

ELSE  IF    ( 'A'<=LK=*Z' )  &    (  '  A'  <=L4<=  '  Z  '  )    &  (,A'<=L5<='Z 

Ll_3  =  L1]]L4]]L5; 

ELSE  IF   ( *A'<=L2<='Z' )  &    ( ' A' <=L3<= ' Z ' )    &  ('A'<=L4<='Z 

Ll_3  =  L2] ]L3] ]L4; 

ELSE  IF   ( •A'<=L2<='Z' )  &    ( ' A' <=L3<= ' Z • )    &  ('A'<=L5<='Z 

Ll_3  =  L2] ]L3] ]L5; 

ELSE  IF   ( •A'<=L3<='Z' )  &    ( ' A' <=L4<=' Z ' )    &  (,A,<=L5<='Z 

Ll_3  =  L3] ]L4] ]L5; 
ELSE  Ll_3  =  L1]]L2]]L3; 

SCREENER  =  D0B]]L1_3; 


)  THEN 

)  THEN 

)  THEN 

)  THEN 

)  THEN 

)  THEN 

)  THEN 


RUN; 

PROC  SORT;   BY  SCREENER; 
RUN; 

/******************************************************************/ 

*/ 

/* 

/*       The  IF  statement  that  follows  drops  single  UPIN  providers  */ 

/*       from  subsequent  processing  *' 

/*  */ 
/******************************************************************/ 

DATA  C;   SET  A(DROP=L1-L20  LN1-LN20  Ll_3  MODAY  DOBMO 

DOBYR  SETYR  BYRH  BYRHX) ; 
BY  SCREENER; 


IF  FIRST. SCREENER  &  LAST . SCREENER  THEN  DELETE; 
RUN 
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APPENDIX  A 

MEDICAL  SCHOOL  ESTABLISHMENT  AND  CLOSURE  DATES 


HCFA 
ID 


MEDICAL  SCHOOL 


LOCATION 


YEAR 


OPEN 


CLOSE 


00102 

University  of  Alabama  School  of  Medicine 

Birmingham.  AL 

1859 

3000 

00104 

Birmingham  Medical  College 

Birmingham.  AL 

1894 

1915 

00106 

University  of  South  Alabama  College  of  Medicine 

Mobile,  AL 

1967 

3000 

00301 

University  of  Arizona  College  of  Medicine 

Tuscon,  AR 

1962 

3000 

00401 

I  iniuwuh/  nf  Arkansas  Coll&ie  of  Medicine 

LJHJVd  Oily  \M  niWIOiW  VA/tl^^c        •«  ^* 

Little  Rock,  AR 

1879 

3000 

00402 

College  of  Physicians  and  Surgeons 

Little  Rock,  AR 

1906 

1911 

00501 

rVwmtr  Mfv-iirol  f"*WWw» 
laajjjct  nucuiuai  \Aincyc 

San  Francisco,  CA 

1882 

1912 

UUOUz 

l  lnf\>orcrK/  nf  r^alifnmia   Qan  Franrisnn  cirhnol  nf  Medtdne 

San  Francisco.  CA 

1864 

3000 

00504 

Calrfnmip  Frlftrttr  Medical  Colleoe 

^alllLJiiiio  uwwAKrf  nncvjrv^ai  wuiityt 

Los  Angeles.  CA 

1907 

1915 

00505 

Hahnpm^n  Medical  Colleoe  of  the  Pacific  (Homeopathic) 

San  Francisco.  CA 

1902 

1918 

00506 

University  of  Southern  California  School  of  Medicine 

Los  Angeles,  CA 

1885 

3000 

00507 

College  of  Physicians  and  Surgeons  of  San  Francisco 

San  Francisco,  CA 

1896 

1921 

00508 

WdKJdiiu  i^uiieye  lb  nfieuiuiin:  diru  juiyci  f 

Oakland,  CA 

1900 

1920 

00509 

("ViII«wt<»  rrf  Phu*u*ian<5  and  Surnpons  of  Los  Anoeles 

Los  Angeles.  CA 

1904 

1909 

0051 1 

QlanfnrH  1  Inivoreltu  "-^/-hnfil  nf  Mpdirinp 
OldlllUlU  UIHVdaliy  u**i iiaji       iyicuiuii  ic 

Palo  Alto,  CA 

1908 

3000 

00512 

I  nma  t  inHa  1  Inimansitu  S^hnol  nf  Medicine 
LUIIld  Llllua  uiuvdsiiy              ui  iticuivh  ic 

Loma  Linda,  CA 

1909 

3000 

00513 

Pacific  Medical  College 

Los  Angeles,  CA 

1913 

1916 

00514 

University  of  California.  Los  Angeles.  School  of  Medicine 

Los  Angeles,  CA 

1951 

3000 

00515 

University  of  California,  Irvine,  California  College  of  Medicine 

Irvine,  CA 

1962 

3000 

00516 

1  InruwKitv  California  Ca  Colleoe  of  Med  Irvine  CA 

Irvine,  CA 

1962 

3000 

fYW4? 
UUDl  / 

unnrefsuy  m  v^ai  v^onegw  m  meuiumo  uvhks 

Irvine,  CA 

1962 

3000 

00518 

1  Iniuoraitu  nf  Palifnmia   9an  Dipdn  School  of  Medicine 

La  Jolla.  CA 

1962 

3000 

00519 

1  Iniuoreitv  nf  ralrfnmia  riavK  School  nf  Medicine 
UlllVclOlly  Ul  ^dlllUI  1  NO,  I_*avi3,  <^*m^J*  m  mtvjn*iiis 

Davis,  CA 

1963 

3000 

00702 

university  or  ^xjiorauo  odium  ui  Meuiumts 

Denver.  CO 

1883 

3000 

00705 

Denver  and  Gross  College  of  Medicine 

Denver,  CO 

1902 

1911 

00801 

Valo  1  InlvoniltM  Schrvil  nf  Medicine 

Idle  UlllVWOIiy  UUUUI  Ul  IT1CVJIVI11C 

New  Haven.  CT 

1810 

3000 

nnono 

1  Inruorcitv  nf  CVin n*»Ctici  it  School  of  Medicine 
UlllVclolly  Ul  UUI  H  nHNU  OUI  ll^ll  Ul  mcunjHR; 

Farmington,  CT 

1961 

3000 

01001 

George  Washington  University  School  of  Medicine  and  Health  Sciences 

Washington.  D  C 

1825 

3000 

01002 

Georgetown  University  School  of  Medicine 

Washington,  D  C 

1851 

3000 

01003 

Howard  University  College  of  Medicine 

Washington.  D  C 

1868 

3000 

01102 

University  of  Miami  School  of  Medicine 

Miami.  FL 

1952 

3000 

01103 

University  of  Florida  College  of  Medicine 

Gainesville.  FL 

1956 

3000 

01104 

University  of  South  Florida  College  of  Medicine 

Tampa.  FL 

1965 

3000 

01201 

Medical  College  of  Georgia 

Augusta.  GA 

1828 

3000 

01205 

Emory  University  School  of  Medicine 

Augusta,  GA 

1854 
1886 

3000 
1916 

01209 

Georgia  College  of  Eclectic  Medicine  and  Surgery 

Augusta.  GA 

01211 

Atlanta  College  of  Physicians  and  Surgeons 

Atlanta.  GA 

1898 
1905 

1913 

01212 

Atlanta  School  of  Medicine 

Atlanta,  GA 

1913 

01218 

Hospital  Medical  College  Eclectic 

Atlanta,  GA 

1908 

1911 

01219 

Southern  College  of  Medicine  &  Surgery 

Atlanta.  GA 

1911 

1914 

01221 

Morehouse  School  of  Medicine 

Atlanta.  GA 

1978 

3000 

01222 

Mercer  University  School  of  Medicine 

Macon,  GA 

1973 
1967 

3000 
3000 

01401 

University  of  Hawaii  John  A.  Bums  School  of  Medicine 

Honolulu,  HI 

01601 

Rush  Medical  College 

Chicago,  IL 

1837 

3000 

01602 

University  of  Chicago  Pritzker  School  of  Medicine 

Chicago,  IL 

1924 

3000 

01604 

Hahneman  Medical  College  and  Hospital 

Chicago,  IL 

1855 

1922 
1911 

01605 

College  Of  Medicine  and  Surgery  (Physio-Medical) 

Chicago.  IL 

1899 
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APPENDIX  A  (continued) 

MEDICAL  SCHOOL  ESTABLISHMENT  AND  CLOSURE  DATES 


HCFA 

ID  MEDICAL  SCHOOL 

01606  Northwestern  University  Medical  School 

01608  Bennett  Medical  College 

01609  Northwestern  University  Womans  Medical  School 

01610  The  Chicago  Homeopathic  Medical  College 

01611  University  of  Illinois  College  of  Medicine 

01613  Harvey  Medical  College 

01614  National  Medical  University 

01615  Hering  Medical  College  (Homeopathic) 

01616  Jenner  Medical  College 

01617  Illinois  Medical  College 

01618  Dunham  Medical  College 

01619  American  Medical  Missionary  College 

01622  Chicago  College  of  Medicine  and  Surgery 

01623  Dearborn  Medical  College 

01642  University  of  Health  Sciences/The  Chicago  Medical  School 

01643  Loyola  University  of  Chicago,  Stritch  School  of  Medicine 

01644  The  General  Medical  College 

01645  Southern  Illinois  University  School  of  Medicine 
01705  Physio-Medical  College  of  Indiana 

01708  The  Medical  College  of  Indiana 

0 1 709  Central  College  of  Physicians  &  Surgeons 

01717  Eclectic  Medical  College  of  Indiana 

01718  Indiana  Medical  College.  School  of  Medicine  of  Purdue  University 
01720  Indiana  University  School  of  Medicine 

01801  College  of  Physicians  and  Surgeons 

01803  University  of  Iowa  College  of  Medicine 

01 804  State  University  of  Iowa,  College  of  Homeopathic  Medicine 
01 806  Drake  University  College  of  Medicine 

0 1 808  Sioux  City  College  of  Medicine 

01810  Keokuk  Medical  College.  College  of  Physicians  and  Surgeons 

01902  University  of  Kansas  School  of  Medicine 

01 903  Kansas  Medical  College  (Medical  Department  of  Washburn  College) 

01 904  College  of  Physicians  and  Surgeons  of  Kansas  City 
01907  Western  Eclectic  College  of  Medicine  and  Surgery 

02001  Kentucky  School  of  Medicine 

02002  University  Of  Louisville  School  of  Medicine 

02004  Louisville  Medical  College 

02005  Hospital  College  of  Medicine  (Med  Dept  of  Central  University) 

02007  Louisville  National  Medical  College  (Med  Dept  State  UniversityKBIack) 

02008  Southwestern  Homeopathic  Medical  College  and  Hospital 

02009  Kentucky  University  Medical  Department 

0201 1  Louisville  and  Hospital  Medical  College 

0201 2  University  of  Kentucky  College  of  Medicine 
02101  Tulane  University  School  of  Medicine 

02 1 04  Flint  Medical  College  of  New  Orleans  University  (Black) 

02105  Louisiana  State  University  School  of  Medicine  in  New  Orleans 

02106  Louisiana  State  University  School  of  Medicine  in  Shreveport 


YEAR 


LOCATION 

Chicago,  IL 
Chicago,  IL 
Chicago,  IL 
Chicago.  IL 
Chicago.  IL 
Chicago.  IL 
Chicago,  IL 
Chicago.  IL 
Chicago.  IL 
Chicago,  IL 
Chicago,  IL 

Battle  Creek.  Ml  &  Chicago.  IL 
Chicago.  IL 
Chicago,  IL 
North  Chicago,  IL 
Maywood,  IL 
Chicago,  IL 
Springfield,  IL 


OPEN 


859 
909 
892 
877 
881 
891 
891 
892 
896 
894 
896 
895 
907 
903 
912 
915 
922 


CLOSE 


Indianapolis,  IN 

1873 

1909 

Indianapolis,  IN 

1878 

1905 

Indianapolis.  IN 

1879 

1905 

Indianapolis,  IN 

1900 

1908 

Indianapolis.  IN 

1905 

1908 

Indianapolis,  IN 

1903 

3000 

Keokuk,  IA 

1849 

1899 

Iowa  City.  IA 

1850 

3000 

Iowa  City,  IA 

1877 

1919 

Des  Moines,  IA 

1903 

1913 

Sioux  City,  IA 

1891 

1909 

Keokuk,  IA 

1899 

1908 

Kansas  City,  KS 

1899 

3000 

Topeka,  KS 

1890 

1913 

Kansas  City,  KS 

1894 

1905 

Kansas  City,  KS 

1908 

1909 

Louisville,  KY 

1850 

1908 

Louisville.  KY 

1833 

3000 

Louisville,  KY 

1869 

1907 

Louisville.  KY 

1873 

1907 

Louisville,  KY 

1888 

1912 

Louisville,  KY 

1893 

1910 

Louisville,  KY 

1898 

1907 

Louisville.  KY 

1907 

1908 

Lexington,  KY 

1954 

3000 

New  Orleans,  LA 

1834 

3000 

New  Orleans,  LA 

1901 

1911 

New  Orleans,  LA 

1931 

3000 

Shreveport,  LA 

1966 

3000 
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APPENDIX  A  (continued) 

MEDICAL  SCHOOL  ESTABLISHMENT  AND  CLOSURE  DATES 


YEAR 


HCFA 

JB  MEDICAL  SCHOOL 

02201  Bowdoin  Medical  School 

02301  University  of  Maryland  School  of  Medicine 

02303  College  of  Physicians  and  Surgeons  of  Baltimore 

02304  Baltimore  Medical  College 

02305  Woman's  Medical  College  of  Baltimore 

02306  Baltimore  University  School  of  Medicine 

02307  John  Hopkins  University  School  of  Medicine 

02308  Atlantic  Medical  College 

02309  Maryland  Medical  College 

0231 1  Maryland  College  of  Eclectic  Medicine  and  Surgery 

02312  Uniformed  Services  Univereity  of  Health  Science 
02401  Harvard  Medical  School 

02405  Boston  University  School  of  Medicine 

02406  College  of  Physicians  and  Surgeons 

02407  Tufts  University  School  of  Medicine 

02415  Middlesex  University  School  of  Medicine 

02416  University  of  Massachusetts  Medical  School 
02501  University  of  Michigan  Medical  School 

02505  Univereity  of  Michigan  Homeopathic  Medical  School 

02507  Wayne  State  University  School  of  Medicine 

02508  Michigan  College  of  Medicine  &  Surgery 

02512  Michigan  State  Univereity  College  of  Human  Medicine 

02604  University  of  Minnesota  Medical  School 

02605  Minneapolis  College  of  Physicians  and  Surgeons 

02607  University  of  Minnesota  Duluth  School  of  Medicine 

02608  Mayo  Medical  School 

02701  University  Mississippi  School  of  Medicine 

02702  Mississippi  Medical  College 

02801  Missouri  Medical  College 

02802  Washington  University  Medical  School 

02803  Univereity  of  Missouri  Columbia  School  of  Medicine 
02805  Homeopathic  Medical  College  of  Missouri 

02807  St.  Louis  College  of  Physicians  and  Surgeons 

02808  Kansas  City  Medical  College 

02810  National  Univereity  of  the  Arts  and  Sciences  Medical  Department 

02820  University  Medical  College  of  Kansas  City 

02822  Ensworth  Medical  College 

02826  Kansas  City  Homeopathic  Medical  College 

02828  Barnes  Medical  College 

02830  Woman'6  Medical  College 

02833  Eclectic  Medical  University 

02834  Saint  Louis  Univereity  School  of  Medicine 

02835  Southwest  School  of  Medicine  and  Hospital 

02843  Kansas  City  College  of  Medicine  and  Surgery 

02844  Kansas  City  University  of  Physicians  and  Surgeons 

02845  Mid  West  Medical  College 

02846  Univereity  of  Missouri  Kansas  City  School  of  Medicine 


LOCATION 


OPEN  CLOSE 


Brunswick  and  Portland,  ME 

1915 

1921 

Baltimore,  MD 

1807 

3000 

Baltimore,  MD 

1872 

1915 

Baltimore.  MD 

1881 

1913 

Baltimore,  MD 

1882 

1910 

Baltimore.  MD 

1884 

1907 

Baltimore,  MD 

1893 

3000 

Baltimore,  MD 

1907 

1910 

Baltimore,  MD 

1898 

1913 

Baltimore,  MD 

1914 

1915 

Bethesda,  MD 

1972 

3000 

Boston,  MA 

1782 

3000 

Boston,  MA 

1873 

3000 

Boston,  MA 

1880 

1949 

Boston,  MA 

1893 

3000 

Waltham.  MA 

1937 

1946 

Worcester,  MA 

1962 

3000 

Ann  Arbor.  Ml 

1850 

3000 

Ann  Arbor,  Ml 

1875 

1922 

Detroit,  Ml 

1868 

3000 

Detroit.  Ml 

1888 

1907 

East  Lansing,  Ml 

1964 

3000 

Minneapolis,  MN 

1888 

3000 

Minneapolis,  MN 

1883 

1908 

Duluth,  MN 

1969 

3000 

Rochester,  MN 

1971 

3000 

Jackson,  Ml 

1903 

3000 

Meridian,  Ml 

1906 

1912 

St.  Louis,  MO 

1840 

1899 

St.  Louis,  MO 

1855 

3000 

Columbia.  MO 

1872 

3000 

St.  Louis.  MO 

1859 

1909 

St  Louis.  MO 

1879 

1917 

Kansas  City.  MO 

1880 

1905 

St.  Louis,  MO 

1912 

1918 

Kansas  City,  MO 

1888 

1913 

St  Joseph,  MO 

1888 

1914 

Kansas  City,  MO 

1888 

1902 

St  Louis,  MO 

1892 

1911 

Kansas  City,  MO 

1895 

1903 

Kansas  City.  MO 

1898 

1918 

St.  Louis,  MO 

1901 

3000 

Kansas  City.  MO 

1915 

1916 

Kansas  City,  MO 

1915 

1926 

Kansas  City,  MO 

1918 

1944 

Kansas  City.  MO 

1933 

1940 

Kansas  City.  MO 

1969 

3000 
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APPENDIX  A  (continued) 


MEDICAL  SCHOOL  ESTABLISHMENT  AND  CLOSURE  DATES 


HCFA 

YEAR 

ID 

MEDICAL  SCHOOL 

LOCATION 

npcM 

UrCri 

03004 

Lincoln  Medical  College,  Eclectic 

Lincoln,  NE 

1915 

03005 

University  of  Nebraska  College  of  Med  tone 

Omaha,  NE 

1880 

03006 

Creighton  University  School  of  Medtcine 

Omaha,  NE 

1892 

3000 

03007 

Nebraska  College  of  Medicine 

Lincoln,  NE 

1905 

1909 

03101 

University  of  Nevada  School  of  Medicine 

Reno,  NV 

1969 

3000 

03201 

Dartmouth  Medical  School 

Hanover,  NH 

1797 

03305 

1  Inn/prcrtv/  ri  UmirinA  nrvi  rVnttRfrv  rJ  Kkaw  ^tbav-KIpw  Iptrpv  Mfviiral  Srhooi 

UIHWIttny                               Pi  KJ  L-^TIilloUy  UI  IWW  Jd  Wy^lCW  JCIOCJ  mcUMl  <Xsllt*Jf 

Newark,  NJ 

1956 

3000 

03306 

I  Inrworcrfu  rJ  UwIMm  arvi  npntictru  rJ  Kku  Lotcav.  RnK^rt  Wrwi   InhnRfm  Mpdiral  SctVttl 
uwveisriy  ui  mcOidiie  ai kj  Lusruisuy  ui  itcw  Jciocy-  rcuutni  vywaj  vAji ii iom i  nneuH^ai  >jmim« 

Piscataway,  NJ 

1966 

3000 

03401 

University  of  New  Mexico  School  of  Medicine 

Albuquerque,  NM 

1961 

3000 

03501 

Columbia  University  College  of  Physicians  and  Surgeons 

New  York,  NY 

1767 

3000 

03503 

Albany  Medical  College  of  Union  University 

Albany,  NY 

1839 

3000 

03506 

Statp  1  InK/prcrfv  nf  Mpw  York  at  Rirffaln  Srhnnl  nf  Medicine 

Buffalo,  NY 

1846 

3000 

03508 

*3tatp  1  Iniuprutv  nf  KIpus  YnnV  Health  Sr- ipivjP  Cpntpr  at  Rrnoklvn 

Brooklyn,  NY 

1860 

jUUU 

03509 

Valhalla,  NY 

1858 

3000 

03510 

Q rtM/it  A  ia  Uincnrtai  U^vHif-al  r^nllrviti 
□ciitrvuc  nuouiiai  m trUKjOi  ^AJiKsyt; 

New  York,  NY 

1861 

1898 

0351 1 

Mau  VnrV  (UloHii-al  r^nllono  anrl  Wncnttal  fnr  Wnmon  WnmpnnPthir 

New  York,  NY 

1866 

1Q1  0 

03513 

Pnlemfii^  UcwHir-al  ("V-iIUvip  nf  thp  r^rfw  nf  Mpuj  Yrvtf 
CUitrvlitj  tYitrvJIUal  WUiitrytr  UI  Ulc  \jl\y  UI  new  IUIK 

New  York,  NY 

1866 

1913 

03515 

Syracuse,  NY 

1834 

3000 

03519 

i tcw  i  ui  ps  uniwiaiiy  ounuui  ui  mquiuiks 

New  York,  NY 

1841 

3000 

03520 

w^iicii  uiiivcricxiy  iyictjiooi       i icry c 

New  York,  NY 

3000 

03543 

Fordham  University  School  of  Medicine 

New  York,  NY 

1 907 

1921 

03545 

University  of  Rochester  School  of  Medicine  and  Dentistry 

Rochester,  NY 

1920 

03546 

Alhprt  Fin<;tpin  CtJIpop  nf  Mpflicinp  nf  Ypfthiva  Unrversrtv 

rMLnTl  l  ^11  loLwii  1  V_A_/l UI   PnCxJTVI  1  It  UI    T  COI  IIVQ  \Ji  UVCI  OIL  J 

New  York,  NY 

1955 

3000 

03547 

Mm mt  ^inai  ^irhnnf  nf  UpHirinp  nf  t hp  Citv  I  InrvPPsrtv  nf  New  York 
iriuui  il  Oil  lal  OCI  llAJi  ui  Pnt^Ajiun  ic       li  IC  \jiiy  ui  iivci  ohj  m  i icw  i  \ji  ~ 

New  York,  NY 

1963 

3000 

03548 

State  University  of  New  York  at  Stony  Brook  School  of  Medicine 

Stony  Brook,  NY 

1962 

3000 

03601 

University  of  North  Carolina  at  Chapel  Hill  School  of  Medicine 

Chapel  Hill,  NC 

1879 

3000 

03603 

1  ponarrl  Mpriinal  Rrhnnl  (Rlarki 

Raleigh,  NC 

1882 

1918 

03604 

North  Carolina  Medical  College 

Charlotte,  NC 

1907 

1918 

03605 

Bowman  Gray  School  of  Medicine  of  Wake  Forest  University 

Winston-Salem,  NC 

1902 

3000 

03607 

Duke  University  School  of  Medicine 

Durham,  NC 

1925 

3000 

03608 

Fa^t  Carnlina  1  Inri/pp^rtv  <-V,hnnl  nf  MpriinnP 
caoi  v^aimuio  oiNvcioiiy  o^i  ivAJt  m  rvmurssuiw 

Greenville,  NC 

1967 

3000 

03701 

University  of  North  Dakota  School  of  Medicine 

Grand  Forks,  ND 

1905 

3000 

03801 

Medical  College  of  Ohio 

Cincinnati.  OH 

1819 

1909 

03802 

Eclectic  Medical  College 

Cincinnati.  OH 

1910 

1942 

03803 

Starling  Medical  College 

Columbus,  OH 

1847 

1907 

03806 

Case  Western  Reserve  University  School  of  Medicine 

Cleveland,  OH 

1843 

3000 

03808 

Cincinnati  College  of  Medicine  and  Surgery 

Cincinnati,  OH 

1849 

1902 

03809 

Miami  Medical  College 

Cincinnati,  OH 

1852 

1909 

03811 

University  of  Wooster  Medical  Department 

Cleveland,  OH 

1869 
1883 

1881 

03819 

Toledo  Medical  College  (Med  Dept  of  Toledo  University) 

Toledo,  OH 

1914 

03823 

Cleveland  Medical  College.  Homeopathic 

Cleveland,  OH 

1890 

1898 

03825 

Ohio  Medical  Unrversity 

Columbus,  OH 

1890 

1907 

03826 

Cleveland-Pulte  Medical  College 

Cleveland.  OH 

1910 

1914 

03840 

Ohio  State  University  College  of  Medicine 

Columbus,  OH 

1907 

3000 

03841 

University  of  Cincinnati  College  of  Medicine 

Cincinnati,  OH 

1819 

3000 

03843 

Medical  College  of  Ohio  at  Toledo 

Toledo.  OH 

1964 

3000 

03844 

Northeastern  Ohio  Universities  College  of  Medicine 

Rootstown.  OH 

1973 

3000 
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APPENDIX  A  (continued) 

MEDICAL  SCHOOL  ESTABLISHMENT  AND  CLOSURE  DATES 


HCFA 

!B  MEDICAL  SCHOOL 

03845  Wright  State  University  School  of  Medicine 

03901  University  of  Oklahoma  College  of  Medicine 

03905  Oral  Roberts  University  School  of  Medicine 

04001  Willamette  University  Medical  Department 

04002  Oregon  Health  Sciences  University  School  of  Medicine 

04101  University  of  Pennsylvania  School  of  Medicine 

04102  Jefferson  Medical  College  of  Thomas  Jefferson  Univereity 
04107  Medical  College  of  Pennsylvania 

04 1 09  Hahnemann  University  School  of  Medicine 

041 1 1  Medlco-Chinjrgical  College  of  Philadelphia 

04112  University  of  Pittsburgh  School  of  Medicine 

04113  Temple  University  School  of  Medicine 

04114  Pennsylvania  State  University  College  of  Medicine 

04201  University  of  Puerto  Rico  School  of  Medicine 

04202  Ponce  School  of  Medicine 

04203  University  Central  del  Caribe  Escuela  de  Medicina 

04204  Ciencias  Medicina  de  San  Juan  Bautista 
04301  Brown  University  Program  in  Medicine 

04501  Medical  University  of  South  Carolina  College  of  Medicine 

04504  University  of  South  Carolina  School  of  Medicine 

04601  University  of  South  Dakota  School  of  Medicine 

04701  University  of  Nashville  Medical  Department 

04705  Vanderbilt  University  School  of  Medicine 

04706  University  of  Tennessee  College  of  Medicine 

04707  Meharry  Medical  College  School  of  Medicine 

04708  Memphis  Hospital  Medical  College 

04709  Chattanooga  Medical  College 

04710  Lincoln  Memorial  University  Medical  Department 

04711  University  of  the  South  Medical  Department 

047 1 3  Knoxville  Medical  College  (Black) 

047 1 4  University  of  West  Tennesee  College  of  Medicine  and  Surgery  (Black) 

047 1 5  College  of  Physicians  and  Surgeons 

04720  East  Tennessee  State  University  James  H  Dishner  College  of  Medictne 

04802  University  of  Texas  Medical  Branch  at  Galveston 

04803  Fort  Worth  School  Of  Medicine 

04804  Baylor  University  College  Of  Medicine 

04805  Physio-Medical  College  of  Texas 

04806  Southern  Methodist  University  Medical  Department 

04807  Gate  City  Medical  College 

04812  University  of  Texas  Southwestern  Medical  Center  at  Dallas  School  of  Medicine 

0481 3  University  of  Texas  Medical  School  at  San  Antonio 

04814  university  of  Texas  Medical  School  at  Houston 

04815  Texas  Tech  University  Health  Sciences  Center  School  of  Medicine 

04816  Texas  ASM  University  College  of  Medicine 
04901         University  of  Utah  School  of  Medicine 
05002  University  of  Vermont  College  of  Medicine 
051 01  University  of  Virginia  School  of  Medicine 


YEAR 


LOCATION 

Dayton.  OH 
Oklahoma  City,  OK 
Tulsa,  OK 
Salem,  OR 
Portland,  OR 
Philadelphia,  PA 
Philadelphia.  PA 
Philadelphia.  PA 
Philadelphia,  PA 
Philadelphia.  PA 
Pittsburgh.  PA 
Philadelphia,  PA 
Hershey,  PA 
San  Juan,  Puerto  Rico 
Ponce,  Puerto  Rico 
Cayey,  Puerto  Rico 
Hato  Rey.  Puerto  Rico 
Providence,  Rl 
Charleston.  SC 
Columbia.  SC 
Vermillion,  SD 
Nashville,  TN 
Nashville.  TN 
Memphis,  TN 
Nashville.  TN 

Memphis,  TN 

Chattanooga,  TN 

Knoxville,  TN 

Sewanee,  TN 

Knoxville,  TN 

Memphis,  TN 

Memphis,  TN 

Johnson  City.  TN 

Galveston,  TX 

Fort  Worth.  TX 

Houston,  TX 

Dallas,  TX 

Dallas,  TX 

Dallas,  TX 

Dallas,  TX 

San  Antonio,  TX 

Houston,  TX 

Lubbock,  TX 

College  Station,  TX 

Salt  Lake  City,  UT 

Burlington,  VT 

Charlottesville,  VA 


OPEN 

1973 

1900 

1979 

1866 

1867 

1765 

1824 

1850 

1848 

1881 

1886 

1901 

1963 

1949 

1978 

1976 

1978 

1963 

1824 

1974 

1907 

1850 

1874 

1851 

1876 

1878 

1889 

1909 

1892 

1900 

1907 

1906 

1978 

1881 

1894 

1900 

1902 

1911 

1910 

1943 

1966 

1969 

1969 

1971 

1905 

1822 

1825 


CLOSE 

3000 

3000 

1990 

1913 

3000 

3000 

3000 

3000 

3000 

1916 

3000 

3000 

3000 

3000 

3000 

3000 

3000 

3000 

3000 

3000 

3000 

1911 

3000 

3000 

3000 

1913 

1910 

1914 

1909 

1910 

1923 

1911 

3000 

3000 

1918 

3000 

1908 

1915 

1911 

3000 

3000 

3000 

3000 

3000 

3000 

3000 

3000 
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APPENDIX  A  (continued) 

MEDICAL  SCHOOL  ESTABLISHMENT  AND  CLOSURE  DATES 


HCFA 

ID  MEDICAL  SCHOOL 

05104  Virginia  Commonwealth  University  Medical  College  of  Virginia 

05106  University  College  of  Medicine 

05107  Eastern  Virginia  Medical  School 

05404  Urtvereity  of  Washington  School  of  Medicine 

05415  Washington  College  of  Pfiysiclans  and  Surgeons 

05501  West  Virginia  University  School  of  Medicine 

05502  Marshall  Urwensrty  School  of  Medicine 

05602  Wisconsin  Colleoe  of  Physicians  and  Surgeons 

05603  Milwaukee  Medical  CoHege 

05605  University  of  Wisconsin  Medical  School 

05606  Medical  College  of  Wisconsin 


LOCATION 


YEAR 


OPEN 


CLOSE 


Richmond.  VA 

1838 

3000 

Richmond,  VA 

1893 

1913 

Norfolk.  VA 

1973 

3000 

Seattle.  WA 

1945 

3000 

Seattle.  WA 

Morgantown.  WV 

1902 

3000 

Huntington.  WV 

1974 

3000 

Milwaukee.  Wl 

1893 

1912 

Milwaukee.  Wl 

1894 

1912 

Madison,  Wl 

1907 

3000 

Milwaukee,  Wl 

1912 

3000 

1  It  appears  that  three  codes  have  been  assigned  to  the  medical  school  at  the  University  of  California  at  Irvine  (see  shaded  lines  on  first  page  of  this  table) 

2  A  value  of  3000  in  the  year  closed  column  indicates  that  the  school  is  still  open 

3  Open  and  close  dates  could  not  be  found  for  the  Washington  College  of  Physicians  and  Surgeons  (05415). 
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